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FINPLAN  is  a  preliminary  prototype  program  performing 


personal  financial  planning  services.  It  is  implemented 


primarily  as  a  production  system  using  expert  system 


concepts  and  runs  on  an  IBM-compatible  personal  computer 


with  128K  bytes  of  memory.  Two  principal  tasks  of 


financial  planning  are  addressed:  determining  a  sufficient 


amount  of  life  insurance  coverage  and  providing 


recommendations  regarding  an  investment  portfolio  for  a 


given  client-user.  The  determination  of  life  insurance 


needs  represents  a  class  of  numerically  oriented  problems. 


which  are  common  in  the  domain  of  personal  financial 


planning.  FINPLAN  offers  a  solution  to  this  class  of 


problems  by  integrating  numerical  algorithms  with 
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production  rules.  Recommendations  regarding  the  client  s 
investment  portfolio  are  based  primarily  on  inference 
procedures  and  other  expert  system  concepts.  FINPLAN 
selects  appropriate  investment  classes  by  matching  the 
characteristics  of  each  investment  class  with  the  client's 
own  temperament  and  goals.  The  thesis  also  gives  a  general 
description  of  rule-based  expert  systems,  discusses 
selected  design  features  considered  in  the  development  of 
FINPLAN,  and  suggests  potential  improvements  that  may  lead 
to  a  future,  more  comprehensive  and  usable  financial 
planning  system. 
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FINPLAN  is  a  preliminary  prototype  program  performing 
personal  financial  planning  services.  It  is  implemented 
primarily  as  a  production  system  using  expert  system 
concepts  and  runs  on  an  IBM-compatible  personal  computer 
with  128K  bytes  of  memory.  Two  principal  tasks  of 
financial  planning  are  addressed:  determining  a  sufficient 
amount  of  life  insurance  coverage  and  providing 
recommendations  regarding  an  investment  portfolio  for  a 
given  client-user.  The  determination  of  life  insurance 
needs  represents  a  class  of  numerically  oriented  problems, 
which  are  common  in  the  domain  of  personal  financial 
planning.  FINPLAN  offers  a  solution  to  this  class  of 
problems  by  integrating  numerical  algorithms  with 
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production  rules.  Recommendations  regarding  the  client's 
investment  portfolio  are  based  primarily  on  inference 
procedures  and  other  expert  system  concepts.  FINPLAN 
selects  appropriate  investment  classes  by  matching  the 
characteristics  of  each  investment  class  with  the  client's 
own  temperament  and  goals.  The  thesis  also  gives  a  general 
description  of  rule-based  expert  systems,  discusses 
selected  design  features  considered  in  the  development  of 
FINPLAN,  and  suggests  potential  improvements  that  may  lead 
to  a  future,  more  comprehensive  and  usable  financial 
planning  system. 


Chairman 


CHAPTER  I 
INTRODUCTION 

Overview 

Research  in  the  computer  science  discipline  of 
artificial  intelligence  (AI)  has  received  increasing 
interest  since  the  mid-1960's.  Some  of  AI's  recent  success 
can  be  attributed  to  the  development  of  expert  systems, 
which  are  high-performance  programs  that  solve  problems 
requiring  significant  human  expertise.  An  expert  system 
differs  from  a  conventional  data  processing  system 
primarily  due  to  its  reliance  on  knowledge-based  inferences 
as  the  problem-solving  technique. 

The  first  useful  expert  systems  did  not  emerge  until 
the  mid-1970's.  Today  scores  of  systems  are  under  serious 
development  or  are  being  used  on  an  experimental  basis.  A 
predominance  of  existing  systems  perform  tasks  in  the 
domains  of  medicine  and  chemistry.  Other  systems  address 
problems  ranging  from  configuring  computers  to  constructing 
other  expert  systems,  themselves  [2].  No  research 
references,  however,  cite  any  efforts  to  develop  an  expert 
system  in  the  domain  of  personal  financial  planning. 
Furthermore,  no  major  existing  system  is  designed  to  run  on 
a  personal  computer. 


Because  of  these  gaps  in  the  research  on  expert 
systems,  this  thesis  effort  sought  to  develop  a  prototype 
expert  system  performing  personal  financial  planning  on  a 
personal  computer.  Remaining  chapters  of  the  thesis 
revolve  around  this  prototype;  the  design,  methodologies, 
and  limitations  of  the  prototype  system  are  discussed. 

Expert  System  Defined 

A  consensus  of  practitioners  in  the  AI  field  probably 
would  agree  an  expert  system  is  an  intelligent  computer 
program  solving  problems  in  a  narrowly  defined  domain  of 
expertise  using  a  body  of  knowledge  and  inference 
procedures.  This  definition  implies  several  key 
characteristics  of  expert  systems.  First,  the  problems  to 
be  solved  must  be  difficult  enough  to  require  significant 
human  expertise  for  its  solution.  Second,  the  body  of 
knowledge,  often  expressed  as  rules  of  reasoning,  is 
originally  acquired  and  developed  by  a  human  expert.  Last, 
the  knowledge  necessary  to  perform  at  a  high  level,  plus 
the  inference  procedures  used,  can  be  considered  as  a  model 
of  the  expertise  of  the  best  practitioners  in  the  field. 
Hence,  expert  systems  aim  not  only  to  simulate  human 
thought  processes,  but  also  to  perform  as  well  or  better 
within  its  designated  domain  than  its  human  counterpart. 

Another  key  feature  of  expert  systems  is  their  ability 


to  explain  output.  The  capability  for  explanation 
separates  expert  systems  from  conventional  computer 


programs  using  numerical  algorithms.  Statistical 
regression  analysis  programs,  for  example,  perform  well  on 
many  important  problems,  but  rehashing  complicated 
mathematical  formulae  offers  little  illumination  of  the 
reasoning  behind  the  solution.  The  inferences  used  by 
expert  systems  do  not  necessarily  embody  exact 
psychological  models  of  the  reasoning  of  experts,  but  they 
do  provide  understandability  to  persons  familiar  with  the 
problem  [1]. 

Chapter  II  describes  the  general  nature  of  expert 
systems  in  more  detail. 

Personal  Financial  Planninsz  Defined 


Personal  financial  planning  is  the  process  of  designing 
an  overall  program  to  guide  the  financial  dealings  of  an 
individual  or  family.  Financial  goals  are  first  defined 
and  then  pursued  through  an  integrated  program  of  savings, 
insurance,  and  investments. 

The  most  central  goal  in  any  financial  plan  should  be 
the  provision  of  financial  security.  It  is  one  of  the  most 
important  life-time  objectives  for  an  individual  or  family 
in  Western  societies.  Achieving  financial  security  means 
not  only  the  accumulation  of  future  wealth  through  an 
investment  portfolio,  but  also  the  establishment  of  an 
immediate  estate  in  the  event  of  adversity.  Such  adversity 
might  include  untimely  death,  interruption  of  income,  or 


any  other  unforseen  happening  that  may  place  a  claim  on  an 
invividual's  assets  or  the  ability  to  earn  and  use  income. 


A  variety  of  social  insurance  programs  within  the 
United  States  provides  some  means  of  ensuring  personal 
financial  security.  In  most  cases,  however,  benefits 
derived  from  these  programs  are  grossly  inadequate  or  fail 
to  cover  all  persons.  A  general  strategy  for  achieving 
financial  security  usually  includes  two  broad  initiatives. 
First,  a  carefully  designed,  self-initiated  investment 
portfolio  must  be  undertaken  in  order  to  augment  social  or 
other  retirement  benefits  and  provide  financial  security  in 
old  age.  The  immediate  need  for  financial  security,  on  the 
other  hand,  must  be  provided  by  privately-owned  insurance 
programs  integrated  with  other  social  and 

employment-related  benefits.  Such  insurance  must  include 
protection  against  financial  loss  in  the  areas  of 
liability,  life,  health,  and  property. 

In  addition  to  determining  the  best-suited  investments 
for  a  portfolio  and  the  types  and  coverages  of  private 
insurance,  financial  planning  also  encompasses  the 
provision  of  tactical  advice.  Expert  advice  helps  to 
facilitate  an  individual’s  pursuit  of  financial  security. 
Tax  planning,  cash  budgeting,  credit  management,  and 
banking  services  represent  some  areas  of  special  advisement 
related  to  financial  planning. 

Reasons  for  a  Financial  Planning  Expert  System 


Expert  system  concepts  can  provide  a  superior  means  for 
solving  personal  financial  planning  problems.  Several 
reasons  explain  why  financial  planning  represents  an 
appropriate  domain  for  the  expert  system  paradigm. 
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First,  financial  planning  is  an  area  of  human  expertise 
where  heuristics  and  specialized  knowledge  can  be 
represented  effectively  by  production  rules.  Solutions  to 
financial  planning  problems  do  not  involve  exclusive 
execution  of  numerical  algorithms,  but  largely  include 
inferences  of  deductive  reasoning.  A  complete  set  of  rules 
of  knowledge  includes  many  subtle  inferences  that  only  can 
be  imparted  to  a  system  by  an  expert  within  the  field. 
Successful  incorporation  of  such  rules  would  make  a 
financial  planning  expert  system  an  extremely  useful  and 
valuable  computer  program. 

The  facility  for  explanation,  an  exclusive  feature  of 
expert  systems,  provides  a  second  reason  for  performing 
financial  planning  using  expert  system  concepts.  Financial 
advice  often  can  not  be  offered  the  credibility  and  support 
of  rigorous  mathematical  formulae,  but  it  can  be  supported 
by  a  description  of  the  lines  of  reasoning  used  to  deduce 
it.  Expert  systems  excell  at  providing  an  explanation  of 
their  deductions.  Inferences  that  can  be  displayed  for 
critical  review  by  the  user  lend  both  credibility  and 
understandability  to  the  system's  output. 

Finally,  personal  financial  planning  represents  an 
inherently  important  and  critical  human  endeavor  within 
Western  societies.  Yet,  the  majority  of  United  States 
citizens  remain  largely  uninformed  about  personal 
finances.  A  financial  planning  expert  system  can  provide 
both  a  means  of  learning  about  financial  planning  as  well 


as  an  inexpensive  and  effective  source  of  expert  knowledge 
for  designing  and  executing  personal  financial  plans. 

FINPLAN 

A  major  part  of  the  thesis  effort  involved  the 
development  of  a  prototype  expert  system  that  performs 
personal  financial  planning.  FINPLAN  is  the  name  given  to 
this  expert  system  program.  It  is  not  a  complete  program; 
but  it  does  demonstrate  key  methodologies  that  might 
eventually  be  used  in  a  more  comprehensive  and  complete 
expert  system.  Chapter  III  describes  the  architectures 
developed  for  FINPLAN.  Chapters  IV  and  V  offer  discussions 
of  selected  design  considerations  and  ideas  for  future 
system  improvements,  respectively. 


CHAPTER  II 

BACKGROUND  INFORMATION— A  GENERAL  DESCRIPTION 
OF  EXPERT  SYSTEMS 


Overview 

Expert  systems  represent  a  relatively  immature  branch 
of  AI  where  a  consensus  of  clearly  defined  concepts  and 
characterizations  does  not  exist.  This  chapter 
consolidates  a  variety  of  views,  and  briefly  summarizes 
what  expert  systems  are  and  how  they  work.  Most  expert 
systems,  in  some  form  or  another,  consist  of  a  knowledge 
base,  global  data  base,  inference  engine,  justifier,  and 
language  processor.  The  knowledge  base  represents  the 
source  of  all  rules  of  reasoning;  the  inference  engine 
drives  and  controls  interpretation  of  the  rules;  the 
justifier  explains  the  system's  rationale  in  making 
decisions;  and  the  language  processor  guides  interaction 
between  the  user  and  the  system.  Each  of  these  components 
will  be  briefly  discussed. 

Components  of  Expert  Systems 
The  knowledge  base 

The  body  of  knowledge  used  by  an  expert  system 
incorporates  its  expertise  in  the  form  of  facts  and 
heuristics.  The  facts  constitute  information  which  is 
generally  agreed  upon  by  experts  in  the  field,  and  are 
publicly  available.  The  heuristics,  however,  are  mostly 
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subtle,  little-discussed  rules  of  judgement  and  plausible 
reasoning,  acquired  only  through  experience,  which  are  not 
widely  shared  nor  publicly  available.  The  performance 
level  of  an  expert  system  is  primarily  a  function  of  the 
size  and  quality  of  the  knowledge  base  that  it  possesses. 

An  expert  system  must  codify  this  body  of  expert 
knowledge  into  representations  which  can  be  manipulated  by 
the  system  in  order  to  reason  or  infer  solutions.  The 
representation  of  the  expert  knowledge  is  so  critically 
important  that  the  construction  of  expert  systems  often  is 
referred  to  as  knowledge  engineering  [5].  Several 
different  approaches  can  be  used  to  represent  domain 
specific  facts  of  the  knowledge  base.  Two  methods  used 
successfully  are  frame-based  and  rule-based 
representations. 

Frames  [10]  contain  common  information  associated  with 
the  context  of  a  given  situation  or  object.  Slots  within 
each  frame  may  store  rules,  calculation  procedures, 
pointers  to  other  frames,  or  other  information  that  is 
relevant  to  the  given  situation.  Although  frames  are 
useful  in  handling  complex  situations  involving  objects  and 
classes  of  objects,  they  are  infrequently  used  in  most  of 
the  current  research  on  expert  systems,  and  not  discussed 
further . 

By  far  the  most  prominent  approach  to  represent  domain 
specific  facts  is  by  production  rules  [3,4,9].  Production 


rules  are  also  called  if-then  or  situation-action  rules 


Some  typical  examples  of  expertise  can  be  expressed  with 
the  following  rules: 


If  there  is  snow  on  the  ground,  then  it  is  cold. 

If:  it  looks  like  a  duck,  and 

it  walks  like  a  duck,  and 
it  quacks  like  a  duck. 

Then:  you've  got  a  duck! 

If:  the  stain  of  the  organism  is  gram-positive,  and 

the  morphology  of  the  organism  is  coccus,  and 
the  growth  conformation  of  the  organism  is  clumps 
then:  (0.7)  the  identity  of  the  organism  is 

staphyloccus . 

All  of  the  above  rules,  which  may  represent  expert 
knowledge,  have  the  following  form: 


IF  (condition  1  is  true) 

(condition  2  is  true) 

THEN  (conclusion  1  is  true) 

(conclusion  2  is  true) 


In  rule-based  systems,  the  knowledge  base  typically 
comprises  rules  of  this  form.  The  LISP  language  is  the 
most  common  choice  for  writing  expert  systems  and  for 
coding  production  rules.  Because  LISP  programs  and  data 
are  both  structured  as  lists,  data  structures  are  easily 
manipulated  by  the  programmer  and  by  the  expert  system 
itself.  This  flexibility  is  critical  since  the  size  and 
shape  of  data  structures  evolve  unpredictably  as  an  expert 
system  runs  [7,13], 

Please  note  that  there  are  many  ways  to  represent  rules 


in  rule-based  systems,  implemented  with  LISP.  In  every 


production  rule  used  by  FINPLAN,  for  example,  the  atoms 
RULE,  rule  numbers,  IF,  and  THEN  are  superfluous  to 
the  data  structure,  and  exist  only  to  make  the  knowledge 


base  more  readable.  The  IF  and  THEN  c 
are  easily  accessed,  so  that  the  condi 
can  be  quickly  tested  and,  if  all  cond 
conclusions  can  be  inferred.  Conditio 
are  tested  for  a  match  with  already  ex 
FINPLAN,  as  well  as  any  other  expert  s 
facts  in  its  global  data  base. 

The  global  data  base 

The  global  data  base  acts  as  a  wor 
storing  input  data,  system  status,  or 
conclusions.  All  of  this  information 
assertions  about  the  world.  Within  a 
such  facts  easily  can  be  represented  a 
All  of  them  are  collected  together  in 
the  value  of  the  global  data  base. 

FINPLAN  initializes  its  global  dat 
input  data  from  the  user  via  an  intera 
then  invokes  a  function  to  add  each  in 
base,  called  FACTS,  which  simply  is  a 
added . 

Other  expert  systems  may  employ  a 
a  more  complex  organization  than  the  o 
example,  the  MYCIN  system  [11]  uses  a 
4-tuples,  consisting  of  an  associative 
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certainty  factor  (CF),  which  indicates  on  a  scale  from  -1 
to  1  how  strongly  the  fact  has  been  confirmed  (CF  >  0)  or 


disconfirmed  (CF  <  0).  Hence, 

(IDENTITY  ORGANISM-2  KLEBSIELLA  .25) 
is  interpreted  as  "The  identity  of  organism-2  is  Klebsiella 
with  certainty  0.25." 

As  another  example,  the  DENDRAL  system,  which  performs 
chemical  analysis,  uses  complex  graph  structures  that 
represent  molecules  and  molecular  fragments  as  the  global 
data  base. 

Whatever  the  organization  of  the  global  data  base,  an 
important  characteristic  remains  that  it  is  the  sole 
storage  medium  for  all  state  variables  of  the  system.  All 
information  relevant  to  the  solution  of  the  problem  and  to 
be  recorded  must  go  there.  Every  rule  within  the  knowledge 
base  has  universal  access  to  every  fact  within  the  global 
data  base,  so  that  any  fact  put  there  is  potentially 
detectable  by  any  rule. 

Inference  engine 

The  inference  engine,  which  is  the  control  structure  or 
the  heart  of  an  expert  system’s  program,  provides  much  of 
the  variation  found  among  different  expert  systems.  It 
operates  by  scanning  each  rule  within  the  knowledge  base 
until  one  is  found  which  successfully  matches  against  the 
current  state  of  the  global  data  base.  Its  action  results 
in  a  modified  data  base,  and  scanning  resumes,  either 
continuing  with  the  next  rule  or  beginning  again  with  the 


first.  Three  methods  of  rule  application  are  common. 
Depending  on  the  direction  of  the  solution  path,  these 
methods  include  forward  chaining,  backward  chaining,  or  a 
combination  of  both.  The  problem's  structure  and  complexity 
determine  which  method  is  most  appropriate. 

Forward  chaining.  In  forward  chained  systems,  also 
called  data-driven  systems,  the  inference  engine  starts 
with  a  collection  of  facts  and  tries  all  available  rules 
over  and  over,  adding  inferred  conclusions  to  the  global 
data  base,  until  no  further  rules  apply.  In  this  case, 
assertions  in  the  IF  clause  of  each  rule  are  tested  for  a 
match  with  an  established  fact  within  the  global  data  base 
and,  if  each  assertion  evaluates  to  TRUE  (i.e.  it  is  part 
of  the  data  base),  the  triggered  conclusion  is  also  added 
to  the  data  base.  Often,  the  last  deduced  inferences 
comprise  the  system's  output  which  is  the  advice  ultimately 
offered  to  the  user.  All  other  items  of  the  global  data 
base  represent  either  input  data  or  intermediate 
conclusions  drawn  by  inference  from  the  production  rules 
within  the  knowledge  base.  Forward  chaining  is  used 
exclusively  by  FINPLAN. 

Backward  chaining.  An  inference  engine  performs 
backward  chaining  if  it  starts  with  an  unsubstantiated 
hypothesis  (the  goal)  and  tries  to  prove  it.  Because 
expert  systems  using  backward  chaining  work  from  goals  to 
subgoals,  they  often  are  called  goal-driven  systems.  The 
strategy  involves  finding  rules  that  relate  to  the  goal  or 


hypothesis  and  then  verifying  each  of  the  conditions  which 

m 

demonstrate  the  hypothesis. 

In  order  to  verify  conditions,  the  global  data  base 
first  is  consulted  for  confirmation  of  each  condition.  If 
unsuccessful,  other  rules  are  sought  that  can  verify  the 
condition,  which  now  has  become  a  new  hypothesis.  In  this 
way,  the  strategy  is  recursive,  and  the  program  searches 
backward  through  its  rules  until  it  verifies  the  hypothesis 
or  cannot  go  backward  any  further.  At  this  point  the 
system  turns  to  the  user  and  asks  for  additional  relevant 
information,  which  will  augment  the  global  data  base. 

A  primary  advantage  of  backward  chaining  is  that 
information  is  sought  and  rules  are  applied  that 
specifically  relate  to  the  overall  goal.  Unlike  forward 
chained  systems,  backward  chained  systems  do  not  appear  to 
work  by  trial  and  error,  asking  apparently  unrelated 
questions.  A  disadvantage,  however,  prevents  users  from 
volunteering  relevant  information  about  the  problem.  This 
handicap  often  makes  backward  chaining  unacceptable  when  a 
rapid  response  is  required. 

Combination.  The  combination  method,  which  uses  both 
forward  and  backward  chaining  for  control,  merges 
advantages  of  both  approaches  together.  Information  is 
sought  and  rules  are  applied  that  specifically  relate  to 
the  overall  goal,  while  users  also  may  volunteer  relevant 
information  which  speeds  processing  time.  Large  search 
spaces,  or  search  spaces  that  are  hierarchically  divided, 
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present  the  most  appropriate  opportunities  for  employing 
the  combination  method.  Such  systems  search  both  from  the 
initial  state  and  from  the  goal  or  hypothesis  state  and 
utilize  a  relaxation  type  approach  to  match  the  solutions 
at  an  intermediate  point. 

The  justifier 

The  justifier  explains  and  justifies  the  program's 
output.  Many  AI  practitioners  consider  an  explanation 
facility  as  an  essential  component  of  an  expert  system 
because  users  are  not  expected  to  know  or  understand  the 
whole  program.  Users  seek  help  from  an  expert  system 
because  they  want  advice  about  their  problem  and  will  take 
action  based  at  least  partly  on  that  advice.  Therefore, 
due  to  moral,  legal,  and  ethical  issues,  users  must 
understand  the  rational  basis  for  the  system's  decisions. 

HOW  and  WHY  inquires,  prompted  by  the  user,  depict  two 
common  modes  of  explanation.  HOW  inquiries  ask  questions 
such  as  "How  did  you  deduce  that  <conclusion>?"  The  system 
responds  by  returning  all  facts  that  allowed  inference  of 
the  specified  conclusion.  It  is  applicable  to  all  three 
methods  of  control:  forward  chaining,  backward  chaining, 
and  a  combination  of  both.  FINPLAN  incorporates  this  type 
of  query  in  its  own  explanation  facility.  WHY  inquires 
propose  questions  such  as  "WHY  do  you  need  <fact>?" 
Applicable  to  systems  utilyzing  backward  chaining  only, 
responses  to  WHY  inquiries  return  the  conclusion 
(hypothesis  or  goal)  dependent  upon  the  specified  fact. 


Both  modes  of  explanation  require  maintainance  of  a 
continuous  record  of  what  data  and  hypotheses  the  expert 
system  considers  during  the  course  of  its  execution.  An 


additional  system  variable  records  this  information  by 
maintaining  a  list  of  all  rules  successfully  used.  This 
list  is  then  used  to  identify  the  production  rule  which 
allowed  an  inference  of  the  questioned  item*  so  that  all 
facts  that  allowed  its  inference  may  be  returned  to  the 
user . 

The  language  processor 

When  an  expert  system  requests  input  data,  accepts 
data,  answers  questions,  or  explains  its  behavior, 
communication  takes  place  between  it  and  the  user. 

Language  processing  often  focuses  on  the  pervasive  and 
separate  discipline  of  AI  concerning  natural  languages. 

For  the  most  part,  current  expert  systems  utilize  the 
simplest  natural  language  techniques  that  support  the  level 
of  performance  required.  Most  systems  use  some  restricted 
variant  of  English,  but  in  some  cases  systems  communicate 
via  a  graphics  or  structure  editor.  Some  language 
processors  parse  and  interpret  user  queries,  commands,  and 
volunteered  information.  Conversely,  processors  also 
format  ouput  information  generated  by  the  system.  Many 
systems  that  use  simple  techniques  exploit  canned  text  to 
generate  messages  to  the  user.  FINPLAN  is  a  member  of  this 
latter  class  of  systems  where  fixed  messages  are 
selectively  chosen  for  output,  and  contents  of  rules  are 


phrased  and  expressed  in  conversational  English  so  that 
they  may  be  directly  outputed  to  the  user. 

Conclusion 

This  chapter  summarized  what  an  expert  system  is  and 
how  it  works.  Basic  components  of  a  rule-based  expert 
system,  such  as  FINPLAN,  include  a  knowledge  base,  global 
data  base,  inference  engine,  justifier,  and  language 
processor.  The  knowledge  base  stores  the  knowledge, 
typically  expressed  by  rules  of  reasoning.  The  global  data 
base  acts  as  a  working  memory  by  storing  established  facts 
and  assertions,  and  holding  input  data  and  system  status 
information.  The  inference  engine  controls  rule 
interpretation  in  a  forward,  backward  or  combined  fashion. 
The  justifier  explains  the  system's  behavior  and  offers 
credibility  for  the  system  in  the  eyes  of  the  user. 


Finally,  the  language  processor,  in  some  form  or  another, 
controls  and  processes  all  interaction  between  the  system 


and  the  user. 


CHAPTER  III 
OVERVIEW  OF  FINPLAN 


General  Comments 

System  Constraints 

This  chapter  explains  the  system  structure  of  FINPLAN. 
FINPLAN's  purpose  is  to  demonstrate  the  methodologies 
developed  for  the  domain  of  personal  financial  planning. 
From  the  start,  it's  development  has  been  shaped  by  several 
important  constraints. 

First,  the  time  permitted  for  a  thesis  effort  does  not 
allow  for  the  development  of  a  commercially  useful, 
comprehensive  and  complete  expert  system.  The  time 
construction  of  early  expert  systems  took  20-50  man-years. 
Some  simple  systems  have  been  reported  to  have  been  built 
in  as  little  as  3  man-months,  but  a  complex  system  still 
tends  to  require  as  long  as  10  man-years  to  complete. 

Using  present  techniques,  the  time  for  construction  of  a 
typical  domain  specific  system  appears  to  be  converging 
towards  5  man-years  per  system  [6], 

Second,  the  assistance  of  a  human  expert  within  the 
domain  of  personal  financial  planning  was  not  available. 

The  quality,  or  performance,  of  any  expert  system  depends 
upon  the  quality  of  heuristics  and  knowledge  imparted  to 
its  knowledge  base  by  a  human  expert.  Hence,  FINPLAN  lacks 
a  high  degree  of  performance. 


Nevertheless,  despite  these  limitations,  FINPLAN 


exhibits  all  of  the  design  features  and  system 
architectures  necessary  to  produce  a  potentially  useful 
expert  system  in  the  domain  of  personal  financial  planning. 
Composition  of  rINPLAN 

Because  the  principal  purpose  of  the  thesis  effort  is 
to  demonstrate  that  expert  system  concepts  can  be  applied 
to  the  domain  of  personal  financial  planning,  a  completely 
comprehensive  system  is  not  necessary.  Two  specific  tasks 
of  financial  planning  were  chosen  as  sufficient  in  order  to 
consider  all  significant  design  problems  associated  with 
the  overall  spectrum  of  financial  planning.  These  two 
tasks  include  estimating  life  insurance  needs  and  making 
investment  portfolio  recommendations. 

Because  the  calculation  of  life  insurance  needs  is 
numerically  oriented,  expert  systems  are  not  well-suited 
for  it.  Nevertheless,  FINPLAN  uses  a  methodology 
(explained  below)  that  was  developed  specifically  to 
address  this  class  of  problems.  Other  numerically  oriented 
problems,  which  might  be  included  in  a  more  comprehensive 
financial  planning  system,  presumably  can  be  based  on  the 
same  architectures  used  in  this  portion  of  FINPLAN. 

Recommendations  regarding  an  investment  portfolio 
comprise  the  second  task  performed  by  FINPLAN.  Determining 
an  investment  portfolio  best  suited  to  the  user  is  perhaps 
the  most  important  function  required  in  financial 
planning.  This  task,  unlike  the  numerically  oriented 
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problems,  is  better  suited  to  expert  system  applications. 
Most  of  its  output  is  directly  inferred  through  the  use  of 
production  rules. 

Design  Goals 

A  major  constraint  was  the  need  to  design  an  expert 
system  that  runs  on  a  personal  computer.  FINPLAN  was 
ultimately  implemented  on  a  Corona  PC  with  128K  bytes  of 
available  memory.  This  machine  environment  easily 
accomodates  the  present  system.  An  improved  version  of 
FINPLAN,  with  a  significantly  expanded  knowledge  base,  also 
is  anticipated  to  run  within  this  environment.  This 
capability  was  accomplished  by  subfactoring  the  overall 
tasks  of  FINPLAN  into  smaller  tasks.  Many  of  these  tasks 
in  turn  are  broken  down  into  even  smaller  subtasks,  each 
requiring  only  a  portion  of  the  overall  body  of  production 
rules.  Hence,  the  total  body  of  knowledge  is  factored  into 
many  smaller  and  separate  bodies  of  knowledge  bases. 

A  second  goal  called  for  a  program  that  was  simple  and 
easy  to  use.  The  user  may  be  a  novice  in  either  personal 
computing  or  financial  planning,  or  both,  and  still  be  able 
to  operate  FINPLAN  easily  and  effectively.  All 
instructions  are  self-explanatory.  Most  user  responses 
require  the  touch  of  only  a  single  key,  and  the  variety  of 
possible  user  responses  are  kept  to  a  minimum. 

A  third  demand  was  to  keep  the  system  archictecture  as 
simple  as  possible.  As  a  result,  production  rules  in  the 
if-then  format  are  used  as  the  form  of  knowledge 
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representation.  All  rules  are  encoded  directly  in  the 
English  dialect  and  stored  as  such,  so  that  no  translation 
by  a  language  processor  is  required  by  the  explanation 
facility  when  interacting  with  the  user.  Also,  forward 
chaining  is  used  exclusively  as  the  direction  of  search  for 
all  inferences. 

Finally,  another  goal  was  to  maximize  the  speed  of 
FINPLAN's  execution.  IQLISP,  the  language  in  which  the 
system  is  written,  is  very  conducive  to  recursive 
procedures.  However,  because  recursion  can  be  very  memory 
intensive  and  often  slows  processing  time,  iteration  in 
place  of  recursion  is  emphasized  wherever  possible. 

Estimating  Life  Insurance  Needs 

Introduction 

Many  tasks  included  in  personal  financial  planning 
require  numerically  oriented  computations.  Developing  a 
family  budget,  determining  and  analyzing  net  worth,  and 
estimating  life  insurance  needs  represent  some  of  these 
tasks.  Because  expert  systems  rely  upon  inferences,  not 
numerical  calculations,  such  numerically  oriented  tasks  are 
not  well-suited  for  solution  by  expert  systems. 
Nevertheless,  such  numerically  oriented  tasks  represent 
integral  parts  of  financial  planning,  and  any  comprehensive 
expert  system  that  addresses  the  domain  of  financial 
planning  must  accomodate  such  tasks.  Therefore,  the 
estimation  of  the  client's  life  insurance  needs  was  chosen 


as  a  representative  task  of  this  class  of  problems,  and  a 


methodology  was  developed  for  FINPLAN  to  handle  it 
successfully . 

Methodology  Used 


FINPLAN  uses  two  independent  processes  in  order  to 
estimate  the  life  insurance  needs  of  the  client-user.  One 
process  performs  the  numerical  calculations  required  to 
determine  the  actual  amount  of  life  insurance  needed,  while 
the  second  process  infers  data  which  can  be  used  to  explain 
the  rationale  behind  the  numerical  calculations.  It  is 
only  the  second  process  then,  that  employs  expert  system 
concepts . 

An  algorithm,  prepared  by  the  San  Mateo,  Calif., 
financial  advisory  firm  of  Bailard,  Biehl  and  Kaiser  Inc., 
serves  as  the  framework  for  both  processes.  The  algorithm 
represents  a  straight-forward  method  for  estimating  an 
adequate  dollar  amount  of  insurance  to  support  the  client's 
survivors  in  the  event  of  his  death.  Sums  to  be  paid  or 
accumulated  at  the  client's  death  are  first  identified. 

The  gap  between  the  survivors'  potential  income  and 
required  living  expenses  is  then  calculated.  This  amount 
is  reduced  to  its  present  value  in  order  to  allow  for  the 
additional  money  earned  by  investing  the  life  insurance 
proceeds.  Social  Security  benefits  also  are  considered  in 
the  present  value  computation.  The  total  insurance  need  is 
finally  determined  by  adding  the  immediate  and  long-term 
expenses  and  subtracting  the  value  of  investment  assets 
currently  available. 


Sample  Dialog 

Input .  In  order  to  begin  estimating  life  insurance 
needs,  FINPLAN  gathers  basic  information  about  the  client 
in  an  interactive  dialog.  For  example,  a  fund  should  be 
provided  at  the  time  of  death  in  order  to  cover  future 
college  education  costs  for  any  children.  Information 
required  to  estimate  the  amount  of  this  fund  is  derived 
from  the  following  questions  (user  responses  are  indicated 
by  preceeding  double  asterisks): 

Do  you  have  any  children? 

**YES 

Do  you  intend  to  provide  a  college  fund  for  your 

children? 

**YES 

What  kind  of  school  do  you  have  in  mind? 

1  -  Private 

2  -  Public 

How  many  children? 

**2 

During  the  course  of  the  above  dialog,  the  following 
statements  are  added  to  the  global  data  base: 

YOU  INTEND  TO  PROVIDE  A  COLLEGE  FUND 

YOU  HAVE  A  PRIVATE  COLLEGE  IN  MIND 

These  statements  are  later  used  to  infer  the  rationale 
behind  the  college  fund  calculations,  which  comprise  a  part 
of  the  overall  insurance  needs,  and  can  be  accessed  via  the 
explanation  facility.  Calculation  of  actual  dollar 
amounts,  however,  is  made  numerically  using  local 
variables.  In  determining  the  college  fund  requirement, 


for  example,  appropriate  values  are  assigned  to  local 
variables  which  represent  a  predetermined  college  cost  per 


child  and  the  number  of  children.  These  variables  then  are 
used  to  compute  the  value  of  the  total  college  fund 
requirement,  which  also  is  represented  by  a  local  variable 
and  which  later  can  be  displayed  as  output.  All  other 
computations  used  to  determine  the  total  amount  of  life 
insurance  needs  are  made  (and  explained)  in  a  similar 
manner . 

Output .  After  all  computations  and  inferences  are 
made,  a  summary  of  the  results  is  displayed.  Figure  3-1 
shows  a  sample  output  display. 

ESTIMATING  YOUR  LIFE  INSURANCE  NEEDS: 

1  -  Funeral,  estate  taxes,  etc.  $  5000 

2  -  Settle  non-mortgage  debt  (consumer  debt)  4500 

3  -  Emergency  fund  5000 

4  -  College  fund  72000 

5  -  Expected  living  expenses: 

a  -  Average  annual  living  expenses  $  21000 

b  -  Spouse's  average  annual  income  14000 

c  -  Annual  Social  Security  benefits  5000 

d  -  Net  annual  living  expenses  (a-b-c)  2000 

e  -  Investment  rate  factor  22 

f  -  Total  living  expenses  needed  (d  x  e)  44000 

6  -  Total  monetary  needs  (1+2+3+4+f)  $130500 

7  -  Total  investment  assets  in  hand  35000 

8  -  Life  insurance  needs  (6-7)  $  95500 


Figure  3-1:  Sample  Life  Insurance  Output 
While  viewing  the  output  the  user  has  the  option  of 
inquiring  about  any  of  the  items  displayed.  The  program 
responds  to  each  inquiry  by  displaying  all  the  facts  which 
allow  the  deduction  of  the  questioned  item.  The 
explanation  facility  of  FINPLAN  does  this  by  scanning  a 
list  of  all  production  rules  successfully  used  by  the 


inference  engine,  identifying  the  applicable  rule  from 
which  the  questioned  item  was  deduced,  and  displaying  all 
facts  contained  in  the  IF  portion  of  that  rule. 

In  order  to  understand  how  the  explanation  facility 
operates,  consider  first  how  FINPLAN  processes  input 
information.  Assume  the  input  information  obtained  from 
the  above  sample  dialog  regarding  estimation  of  a  college 
fund.  Figure  3-2  shows  a  portion  of  the  life  insurance 
knowledge  base  which  applies  to  this  college  fund 
estimate.  After  FINPLAN  interviews  the  client  regarding  a 
college  fund,  the  global  data  base  will  include  the 
following  facts: 

YOU  WANT  TO  ESTIMATE  LIFE  INSURANCE  NEEDS 
THIS  COST  IS  BASED  ON  AMERICAN  COUNCIL  ON  EDUCATIONS 
ESTIMATE 

ASSUME  A  4  YEAR  EDUCATION  FOR  EACH  CHILD 
YOU  INTEND  TO  PROVIDE  A  COLLEGE  FUND 
YOU  HAVE  A  PRIVATE  COLLEGE  IN  MIND 

The  system  initialized  the  global  data  base  with  the  first 

three  facts,  which  may  be  considered  as  given.  The  last 

two  facts  had  been  established  and  added  to  the  data  base 

as  a  result  of  interviewing  the  client. 

In  the  next  step  FINPLAN  forward  chains  the  life 

insurance  knowledge  base  whereby  each  rule  in  Figure  3-2  is 

triggered,  inferring  additional  facts  which  are  added  to 

the  global  data  base.  Each  rule  triggered  in  this  step  is 

added  to  a  separate  list  structure,  RULES-USED,  to  keep 

track  of  all  rules  successfully  used.  RULES-USED  is  needed 

by  the  explanation  facility.  Hence,  after  the  inferences 


RULE  1 

IF:  YOU  WANT  TO  ESTIMATE  LIFE  INSURANCE  NEEDS 
THEN:  YOU  MUST  ADD  IT  IN  ORDER  TO  ESTIMATE  TOTAL 
MONETARY  NEEDS 

YOU  MUST  CONSIDER  TOTAL  MONETARY  NEEDS 
YOU  MUST  CONSIDER  IT  IN  ORDER  TO  ESTIMATE  TOTAL 
MONETARY  NEEDS 

LIFE  INSURANCE  NEEDS  SHOULD  BE  ESTIMATED 
SUBTRACT  INVESTMENT  ASSETS  IN  HAND  FROM  TOTAL 
MONETARY  NEEDS 


RULE  2 

IFt  YOU  MUST  ADD  IT  IN  ORDER  TO  ESTIMATE  TOTAL  MONETARY 
NEEDS 

THEN:  THIS  COST  SHOULD  BE  PROVIDED  FOR  AT  TIME  OF  DEATH 
RULE  3 

IF:  THIS  COST  SHOULD  BE  PROVIDED  FOR  AT  TIME  OF  DEATH 
THEN:  YOU  MUST  INCLUDE  FUNERAL  EXPENSES  IN  TOTAL 
MONETARY  NEEDS 

YOU  MUST  INCLUDE  NON-MORTGAGE  DEBT  IN  TOTAL 
MONETARY  NEEDS 

YOU  MUST  INCLUDE  EMERGENCY  FUND  REQUIREMENT  IN 
TOTAL  MONETARY  NEEDS 

YOU  MUST  INCLUDE  COLLEGE  FUND  REQUIREMENT  IN  TOTAL 
MONETARY  NEEDS 

YOU  MUST  INCLUDE  TOTAL  LIVING  EXPENSES  IN  TOTAL 
MONETARY  NEEDS 

RULE  4 

IF:  THIS  COST  IS  BASED  ON  AMERICAN  COUNCIL  ON  EDUCATIONS 
ESTIMATE 

YOU  HAVE  A  PRIVATE  COLLEGE  IN  MIND 
THEN:  FIGURE  $9000  A  YEAR  PER  CHILD 

RULE  8 

IF:  YOU  INTEND  TO  PROVIDE  A  COLLEGE  FUND 
FIGURE  $9000  A  YEAR  PER  CHILD 
ASSUME  A  4  YEAR  EDUCATION  FOR  EACH  CHILD 
YOU  MUST  INCLUDE  COLLEGE  FUND  REQUIREMENT  IN  TOTAL 
MONETARY  NEEDS 

THEN:  THERE  IS  A  NEED  FOR  PROVIDING  A  COLLEGE  FUND 


I 


Figure  3-2:  Partial  Life  Insurance  Knowledge  Base 
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are  made  and  before  any  inquiries  are  asked,  RULES-USED 
includes  all  the  rules  shown  in  Figure  3-2.  In  addition, 
because  each  rule  is  enabled,  the  global  data  base  is  now 
expanded  and  includes  all  the  facts  contained  in  the  THEN 
portion  of  each  rule  of  Figure  3-2. 

At  this  time,  after  viewing  the  insurance  output  (shown 
in  Figure  3-1)  and  selecting  the  inquiry  mode,  the 
client-user  may  inquire  about  the  college  fund 
computation.  Specific  code  in  the  program  tells  the 
explanation  facility,  in  this  case,  to  look  for  and  explain 
either  the  fact  "THERE  IS  A  NEED  FOR  PROVIDING  A  COLLEGE 
FUND"  or  "THERE  IS  NO  NEED  FOR  PROVIDING  A  COLLEGE  FUND." 

In  this  case  because  the  sample  dialog  indicated  a  college 
fund  requirement,  the  former  fact  will  be  found  in  the 
global  data  base  and  RULE  8  identified  in  RULES-USED.  The 
explanation  facility  then  dissects  RULE  8  and  displays  the 
following  rationale: 

THERE  IS  A  NEED  FOR  PROVIDING  A  COLLEGE  FUND 

was  deduced  from  the  following: 

1  -  YOU  INTEND  TO  PROVIDE  A  COLLEGE  FUND 

2  -  FIGURE  $9000  A  YEAR  PER  CHILD 

3  -  ASSUME  A  4  YEAR  EDUCATION  FOR  EACH  CHILD 

4  -  YOU  MUST  INCLUDE  COLLEGE  FUND  REQUIREMENT  IN 

TOTAL  MONETARY  NEEDS 

Enter  line  number  of  item  you  wish  to  question 
Else  enter  X 

Further  queries  may  be  made  about  any  of  the  displayed 
items  offered  as  explanation.  For  example,  if  the  user 


now  requests  information  on  the  amount  of  money  per  child 
(item  2  above),  a  separate  explanation  is  provided: 


FIGURE  $9000  A  YEAR  PER  CHILD 
was  deduced  from  the  following: 

1  -  THIS  COST  IS  BASED  ON  AMERICAN  COUNCIL  ON 

EDUCATIONS  ESTIMATE 

2  -  YOU  HAVE  A  PRIVATE  COLLEGE  IN  MIND 

Enter  line  number  of  item  you  wish  to  question 
Else  enter  X 

When  the  end  of  a  line  of  reasoning  is  reached,  such  as 

when  "YOU  HAVE  A  PRIVATE  COLLEGE  IN  MIND"  is  questioned 

next,  FINPLAN  responds  with  the  following  message: 

YOU  HAVE  A  PRIVATE  COLLEGE  IN  MIND 

was  either  determined  in  the  interview  or  given. 

Strike  any  key  to  continue  .  .  .• 

Once  the  user  chooses  to  continue  the  program  the  insurance 
summary  is  displayed  again,  at  which  time  the  user  may 
request  additional  explanations  of  any  item  or  continue 
with  the  investment  portion  of  the  program. 

Making  Investment  Portfolio  Recommendations 
Introduction 

Suggesting  recommendations  regarding  an  investment 
portfolio  best-suited  to  the  situation  and  needs  of  a 
client-user  represents  a  major  task  of  any  financial 
planning  system.  It  also  represents  a  task  in  financial 
planning  which  is  most  conducive  to  expert  system 
concepts.  Recommendations  regarding  an  investment 
portfolio  made  by  FINPLAN  include: 


a)  an  appropriate  number  of  investment  classes, 
ranging  from  one  to  four  classes.  This  number  is 
based  on  the  client's  need  for  diversification. 

b)  amount  of  capital  to  be  invested  in  each 
investment  class.  This  amount  is  based  on  the 
total  capital  available  and  the  number  of  classes 
FINPLAN  selects. 

c)  identification  of  each  investment  class.  The 
selection  of  classes  is  based  on  the  best  match 
between  the  client's  goals  or  constraints  and  the 
degree  to  which  each  possible  investment  class 
satisfies  those  goals  or  constraints. 

Methodology  Used 

Determining  the  client's  goals.  Constraints/goals  are 
inferred  through  a  specific  body  of  production  rules 
starting  with  basic  information  about  the  client-user. 

This  basic  information  is  obtained  as  input  from  an 
interactive  interview.  The  client  is  characterized  with 
respect  to  each  of  seven  specific  constraints/goals,  which 
later  are  used  to  identify  the  most  appropriate  investment 
classes  for  the  client.  Generally,  there  are  at  least 
three  possible  characterizations  for  each  constraint.  An 
example  of  a  complete  set  of  constraint  characterizations 
for  a  given  client  follows: 

1  -  Objective  should  be  retirement  security 

2  -  Financial  risk  should  be  low 

3  -  Liquidity  should  be  moderate 

4  -  Tax  exemption  is  moderately  important 

5  -  Inflation  protection  should  be  high 

6  -  Effort  required  should  be  low 

7  -  Skill  required  should  not  be  demanding 


Determining  degree  of  diversification.  FINPLAN  infers 
the  degree  of  diversification  needed  by  the  client  using 
another  separate  body  of  production  rules.  The  degree  of 


m 


diversification  determines  the  number  of  investment  classes 
ultimately  recommended.  All  final  inferred  conclusions 
regarding  diversification  can  be  traced  to: 

a)  the  recommended  riskiness  of  the  investment 
portfolio,  which  is  based  on  the  client's  risk 
tolerance  and  major  investment  objective. 

b)  the  amount  of  capital  the  client  has  available  for 
investment . 

c)  the  degree  of  desire  the  client  indicates  for 
participating  in  the  management  of  his  portfolio. 

Amount  of  capital.  After  an  appropriate  number  of 
investment  classes  is  inferred  from  the  degree  of 
diversification,  the  amount  of  capital  to  be  invested  in 
each  class  is  numerically  calculated.  FINPLAN  still  makes 
inferences  based  on  production  rules,  however,  in  order  to 
provide  a  means  of  explanation.  The  computed  amount  of 
capital  is  truncated  to  the  next  lowest  $1000  unit,  and  any 
remaining  dollars  are  recommended  to  be  placed  in  the 
client's  savings  account. 

Investment  selection  algorithm.  Selection  of  the  most 
appropriate  investment  classes  is  made  by  evaluating  and 
ranking  each  investment  class  according  to  how  well  each 
satisfies  the  client's  desired  constraints/goals.  The 
evaluation  of  each  class  is  done  numerically,  but  inference 
procedures  still  exist  to  be  used  by  the  explanation 
facility.  The  selection  algorithm  that  is  applied  to  each 
investment  class  is  presented  in  Figure  3-3. 


FOR  each  investment  class  i  (i  =  1,2  .  .  25)  DO 
RANK.  =  0 

FOR  each  of  the  7  constraints  (j  =  1,2  .  .  7)  DO 

1.  SUM  =  INV(i.j)  -  GOAL(j) 

2.  IF  SUM  >  0  THEN  SUM  =  5  *  SUM 

3.  RANK.  =  RANK.  +  abs(SUM) 

UNTIL  all  7  constraints  have  been  considered 
assign  RANK,  to  investment  class  i 
UNTIL  all  investment  classes  have  been  considered 

Figure  3-3:  Selection  Investment  Algorithm 
INV(i,j)  used  in  the  algorithm  and  whose  values  appear  in 
Table  3-1  represents  the  characterization  of  investment 
class  i  with  respect  to  constraint  j.  GOAL(j)  indicates 
the  client's  characterization  with  respect  to  constraint  j. 

Note  that  the  class  with  the  lowest  RANK  value 
represents  the  best  match  for  the  client's  given  set  of 
constraints/goals.  A  RANK  «  0  for  investment  class  i 
indicates  a  "perfect"  match  for  investment  class  i. 

Each  time  a  constraint  or  goal  i  is  not  satisfied,  the 
rank  for  that  investment  class  is  increased  by  at  least  the 
difference  between  INV(i,j)  and  GOAL(j).  Sometimes, 
however,  this  penalty  is  increased  by  a  multiple  of  5  in 
step  2  of  the  algorithm.  For  example,  assume  the  client 
wants  an  investment  class  where  "financial  risk  can  be 
moderate"  (G0AL(1)  =  20).  A  class  whose  financial  risk  is 
characterized  as  moderate  (INV(i,j)  =  20)  would  receive  a 
contribution  of  the  quantity  of  zero  added  to  its  RANK  (a 
perfect  match,  as  far  as  risk  is  concerned).  If  its  risk 
were  low  (INV(i,j)  =  10),  a  10  point  penalty  would  be  added 
to  its  RANK.  On  the  other  hand,  if  it  were  a  high  risk 


TABLE  3-1:  CONSTRAINTS  USED  IN  THE 
INVESTMENT  SELECTION  ALGORITHM 


CONSTRAINT/GOAL 

CHARACTERIZATION 

Financial  risk 

Low 

Moderate 

High 

Objective 

Income 

Retirement  security 
Growth 

Speculation 

Tax  exemption 

High 

Moderately  important 
Not  important 

Inflation 

protection 

High 

Moderately  important 
Not  a  consideration 

Liquidity 

High 

Moderate 

Not  a  consideration 

Effort  required 

Low 

Moderate 

High 

Skill  required 

Not  demanding 

Can  be  moderate 

Can  be  high 

INV ( i , j ) 
OR  GOAL(i) 

10 

20 

30 


5 

10 

15 

20 

4 

8 

12 

3 

6 
9 

2 

4 
6 

2 

4 

6 

2 

4 

6 


investment  class  (INV(i,j)  ■  30),  a  50  point  penalty  would 
be  added  to  its  RANK.  This  additional  penalty  is  assigned 
in  order  to  compensate  for  the  presumed  fact  that  a 
moderate  risk-taker  would  be  far  more  adverse  to  accepting 
a  high  risk  investment  than  he  would  be  to  accepting  a  low 
risk  investment. 

All  values  associated  with  each  type  of  constraint/goal 
(INV(i,j)  and  GOAL(j))  are  ordered  in  a  predetermined  way 
such  that  the  additional  penalty  is  invoked  only  when  an 
attempted  match  "misses"  on  the  non-conservative  side  (i.e. 
as  in  the  risk  example  above). 

The  values  associated  with  each  constraint/goal 
relative  to  other  constraints  vary  in  magnitude.  Hence, 
each  constraint  category  may  be  weighted  and  its  relative 
proportion  within  the  algorithm  assigned.  Thus,  risk 
considerations  may  be  made  more  important  than  tax 
considerations,  which  may  be  made  more  important  than 
required  effort,  etc. 

Investment  output.  Once  all  possible  investment 
classes  are  ranked  using  the  investment  selection 
algorithm,  a  desired  number  of  classes  are  identified  and 
each  displayed  in  ascending  order  of  its  RANK  (lowest  RANK 
first).  Figure  3-4  shows  a  sample  output.  The  user  has 
the  same  option  to  inquire  about  any  of  the  numbered  items 
displayed,  as  he  could  during  the  insurance  portion  of  the 
program.  The  explanation  facility  works  exactly  the  same 
way  as  described  earlier. 


You  have  $  56000  available  for  investment.  Based  upon 
your  situation,  temperament,  and  goals,  FINPLAN  recommends 
that  your  portfolio  includes  investments  allocated  to  the 
investment  classes  listed  below. 

1-3  investment  classes  are  recommended. 

2  -  $  18000  is  recommended  for  investment  in  each  class. 


3  -  Class  1 


$  18000  in  ESTABLISHED  DIVIDEND  STOCKS 


4  -  Class  2: 


$  18000  in  INCOME-ORIENTED  MUTUAL  FUNDS 


5  -  Class  3: 


$  18000  in  HIGH  GRADE  MUNICIPALS 


Place  the  remaining  $  2000  in  your  savings. 


Figure  3-4:  Sample  Output  of  Investment 
Recommendations 


CHAPTER  IV 

SPECIAL  DESIGN  CONSIDERATIONS  AND  ALTERNATIVES 

Introduction 

During  the  course  of  developing  FINPLAN,  many  design 
problems  unique  to  either  expert  systems  or  to  the  domain 
of  financial  planning  were  encountered.  Each  of  these 
problems  could  have  been  solved  by  any  one  of  several 
alternatives.  For  each  design  problem  considered  in  this 
chapter,  the  problem  is  first  defined,  the  chosen  solution 
is  described,  and  alternative  solutions  are  then  noted  and 
briefly  discussed.  For  a  discussion  of  additional 
variations  of  alternative  architectures  common  to  expert 
systems  in  general  see  [8,12]. 

Design  Considerations  and  Alternatives 


Controlling  the  Size  of  the  Knowledge  Base 

The  problem.  A  method  must  be  used  to  restrict  the 
size  of  the  knowledge  base,  keeping  the  number  of 
production  rules  within  a  manageable  limit.  The  growth 
potential  of  a  knowledge  base  may  best  be  explained  with  an 
example.  Mutually  exclusive  characterizations  for  the 
client  regarding  his  need  for  liquidity,  tax  exemption, 
inflation  protection  and  other  investment  constraints  are 
inferred  from  information  about  the  client.  The  need  for 


liquidity  in  any  investment,  for  example,  could  be  inferred 


exclusively  from  the  client's  level  of  emergency  reserves: 
the  lower  his  level  of  reserves,  the  greater  his  need  for 
liquidity.  Because  each  of  three  possible  values  which 
represent  the  level  of  reserves  could  directly  infer  one  of 
the  three  possible  values  representing  the  need  for 
liquidity,  a  total  of  three  production  rules  would  be 
adequate  to  infer  an  appropriate  value  for  liquidity.  If, 
however,  the  client's  degree  of  risk  tolerance,  in  addition 
to  his  level  of  reserves  influences  the  need  for  liquidity, 
more  production  rules  would  be  needed.  Since  his  risk 
tolerance  is  characterized  by  one  of  three  possible  values, 
a  total  of  9  potential  sets  of  conditions  now  must  be 
considered  in  order  to  infer  the  appropriate  liquidity 
need.  Introducing  a  third  factor,  which  has  four  possible 
values,  raises  the  number  of  production  rules  needed  to 
36.  Clearly,  a  method  must  be  used  that  eliminates  the 
need  for  a  comprehensive  set  of  production  rules  covering 
all  possible  discreet  sets  of  multiple  conditions,  in  order 
to  keep  the  number  of  rules  from  becoming  prohibitively 
large. 

Solution  chosen.  In  most  situations  involving  multiple 
factors,  a  single  factor  is  dominant  when  inferring  a 
conclusion.  The  need  for  liquidity,  for  example,  is 
determined  primarily  by  the  level  of  emergency  reserves. 

In  a  few  cases,  however,  unique  combinations  of  other 
secondary  factors  represent  exceptions,  whereby  a 
conclusion  differs  from  one  inferred  by  the  consideration 


of  emergency  reserves  alone.  For  example,  liquidity  should 
be  moderate  if  reserves  are  moderate  unless  income  is 
secure  and  the  client  is  an  aggressive  risk-taker,  in  which 
case  liquidity  can  be  low.  Rather  than  incorporating 
rules  that  cover  all  possible  combinations  of  values  for 
all  input  factors,  FINPLAN  identifies  rules  which  produce 
only  those  conclusions  that  differ  from  what  the  primary 
factor  normally  produces.  Such  cases  are  labeled 
exceptional  cases,  and  the  rules  that  address  them  are 
called  exception  rules.  Rules  whose  inferences  are  based 
solely  on  the  primary  factor  are  called  default  rules. 
Together,  exception  and  default  rules  cover  an  exhaustive 
listing  of  potential  inferences  without  including  ar 
exhaustive  listing  of  potential  rules. 

FINPLAN  isolates  these  two  types  of  rules  into  separate 
knowledge  bases.  First,  the  exception  rules  are  forward 
chained.  If  no  conclusion  is  successfully  inferred  for  a 
specific  constraint  (ie.  liquidity,  risk,  skill,  etc.), 
then  the  default  rules  for  that  category  are  forward 
chained.  In  this  way,  a  single  mutually  exclusive 
conclusion  for  each  constraint  category  is  guaranteed 
without  considering  a  comprehensive  set  of  rules  covering 
every  possible  set  of  conditions.  Only  the  exception  and 
default  rules  need  to  be  considered. 

Alternative  solutions.  An  alternative  solution  also 
involves  the  identification  of  exception  and  default  rules, 
but  this  time  includes  them  together  in  a  common  knowledge 
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base.  Rules  within  this  knowledge  base  are  ordered  so  that 
the  exception  rules  follow  the  default  rules.  This 
methodology,  however,  will  infer  two  different 
characterizations  for  the  same  constraint  category  whenever 
an  exception  rule  is  triggered.  To  correct  this  result 
second  inferences  must  be  identified,  and,  if  one  occurs, 
all  effects  from  the  first  inference  must  be  undone.  This 
process  includes  removing  the  previously  inferred  fact  from 
the  global  data  base  as  well  as  the  previous  rule  from 
RULES-USED,  the  list  containing  all  successfully  used 
rules.  FINPLAN  initially  implemented  this  methodology,  but 
every  inference  for  each  constraint  category  had  to  be 
checked  for  a  previous  inference,  resulting  in  a  slower 
processing  time.  In  addition,  the  code  was  awkward  and 
required  dangerous  IQLISP  functions  for  list  surgery. 

Another  potential  solution,  when  inferring  constraint 
categories,  identifies  default  and  exception  rules.  This 
solution  also  includes  both  types  of  rules  in  a  common 
knowledge  base  with  exception  rules  ordered  last.  This 
time,  however,  when  two  or  more  inferences  are  made 
concerning  the  same  category,  no  attempt  is  made  to  remove 
the  inappropriate  items  from  the  global  data  base  and 
RULES-USED.  Because  items  are  added  to  the  front  of  the 
global  data  base  and  RULES-USED,  the  last  items  added  will 
always  be  the  first  items  on  both  data  structures.  Hence, 
because  exceptions  are  triggered  last,  the  relevant  items 
appear  first  on  both  the  global  data  base  and  RULES-USED. 


As  long  as  any  procedure  that  accesses  these  data 
structures  searches  these  lists  from  front  to  back  and 


stops  scanning  whenever  the  first  item  for  a  desired 
category  is  found,  the  effects  of  inappropriate  inferences 
simply  can  be  ignored. 

This  design  carries  some  disadvantages  with  it, 
however.  First,  the  global  data  base  and  RULES-USED  data 
structures  become  larger  than  necessary.  The  unnecessary 
growth  of  data  structures  is  particularly  harmful  because 
the  conservation  of  memory  usage  is  critical  in  any  expert 
system  implemented  on  a  personal  computer.  Furthermore, 
this  design  is  philosophically  undesirable  because 
contamination  of  the  global  data  base  and  RULES-USED  should 
not  be  condoned.  Special  action  must  be  taken  in  order  to 
avoid  erroneous  output  resulting  from  their  contamination. 
This  approach  circumvents  the  intended  content  of  the 
global  data  base  and  RULES-USED  where  any  further  access  or 
manipulation  of  these  data  structures  must  be  done  with 
extreme  caution. 

Numerically  Oriented  Tasks 

The  problem.  Expert  systems  are  best  suited  for 
qualitative  tasks,  such  as  in  the  case  of  deductive 
reasoning,  not  quantitative  tasks.  Unfortunately,  not  all 
tasks  in  financial  planning  involve  qualitative  advice 
inferred  from  lines  of  deductive  reasoning.  In  those  tasks 
that  require  numerical  procedures,  some  kind  of 
quantitative  method  using  numerical  computations  must  be 
implemented.  Several  methodologies  are  available. 


Solution  chosen.  FINPLAN  uses  two  independent 
processes,  one  to  infer  lines  of  deductive  reasoning  and 
the  other  to  make  traditional  arithmetic  calculations, 
whenever  quantitative  computations  are  required.  The 
insurance  portion  of  FINPLAN  depicts  an  example  of  this 
methodology,  which  was  discussed  in  Chapter  III. 

Alternative  solutions.  Rather  than  storing  numerical 
values  in  local  variables  and  manipulating  these  variables 
in  an  independent  process,  the  values  instead  could  be 
stored  directly  in  each  appropriate  fact  within  the  global 
data  base.  These  stored  values  then  could  be  extracted, 
manipulated  by  traditional  methods  of  calculation,  and  the 
calculated  value  returned  to  the  appropriate  fact  within 
the  global  data  base.  For  example,  total  living  expenses 
in  the  insurance  portion  of  FINPLAN  is  determined  by 
multiplying  the  net  annual  living  expenses  by  an  investment 
rate  factor.  Each  of  these  values  may  be  stored  in  the 
global  data  base  as  follows: 

(YOUR  NET  LIVING  EXPENSES  HAVE  BEEN  DETERMINED  TO 
BE  <value-l>) 

(YOUR  INVESTMENT  RATE  FACTOR  IS  <value-2>) 

(TOTAL  LIVING  EXPENSES  HAVE  BEEN  COMPUTED  TO  BE 
<value-3>) 

When  the  computation  of  total  living  expenses  is  to  be 
made,  <value-l>  and  <value-2>  can  be  extracted  from  their 
respective  facts  within  the  global  data  base  and  used  to 
compute  total  living  expenses.  This  new  value  then 


replaces  <value-3>  which  is  returned  to  and  stored  in  the 
global  data  base. 


FINPLAN  currently  stores  values  used  in  the  investment 
selection  algorithm  for  the  evaluation  and  ranking  of 
investments  using  this  general  method.  An  advantage 
includes  storage  efficiency,  where  values  can  be  directly 
linked  to  appropriate  facts  within  the  global  data  base 
without  the  use  of  local  variables.  Accessing  these 
values,  however,  may  represent  a  disadvantage  since  the 
fact  associated  with  the  value  first  must  be  retrieved  from 
the  global  data  base  before  the  value  can  be  extracted. 
Selection  of  Investment  Classes 

The  problem.  Investment  classes  that  best  match  the 
client's  goals  and  constraints  must  be  selected.  Several 
alternatives  exist. 

Solution  chosen.  FINPLAN  implemented  a  numerical 
algorithm  that  ranks  every  investment  class  included  within 
the  knowledge  base.  Inferences  had  to  be  forfeited  in  this 
evaluation  process  because  no  methodology  could  be 
developed  which  used  inferences  that  satisfactorily  ranked 
all  investment  classes.  Chapter  III  discussed  the 
investment  selection  algorithm  in  detail. 

Alternative  solutions.  Before  the  selection  algorithm 
was  elected,  a  methodology  which  strictly  used  inferences 
by  production  rules  was  attempted.  This  design,  however, 
proved  to  be  unsatisfactory. 


The  basic  concept  on  which  this  design  was  based 
matches  the  client's  goals  with  each  investment's 
characteristics.  For  example,  if  the  client  is  determined 
to  be  a  moderate  risk-taker,  his  goal  for  risk  is 
represented  by  the  following  fact:  FINANCIAL  RISK  SHOULD 
BE  MODERATE.  If  the  client  accepts  an  investment  class 
with  moderate  risk,  then  he  presumably  would  also  accept  an 
investment  with  low  risk.  Therefore,  production  rules 
translate  his  original  goal  into  the  following  constraints 
(to  be  tested  against  the  investment's  characteristics  for 


risk)  : 


FINANCIAL  RISK  CAN  BE  LOW 
FINANCIAL  RISK  CAN  BE  MODERATE 


In  this  manner,  production  rules  expand  all  client  goals  so 
that  they  describe  all  acceptable  characterization  values. 
Another  set  of  production  rules  are  then  forward  chained  in 
order  to  test  for  exact  matches  between  each  investment's 
characteristics  and  the  client's  acceptable  goals.  An 
investment  class  is  inferred  only  when  each  characteristic 


for  it  exactly  matches  every  client  goal. 

The  lack  of  control  over  the  number  of  investment 


classes  selected  represents  the  primary  disadvantage  of 


this  design.  In  some  cases  no  investment  classes  match  the 
client's  profile  of  goals.  On  the  other  hand,  if  a 
client's  profile  is  fairly  liberal,  many  investment  classes 


fit  his  goals.  Hence,  selection  of  a  specified  number  of 
classes  can  not  be  easily  accomplished.  An  attempt  was 


made  to  iterate  the  deductive  process,  accepting  only  one 
investment  class  at  each  pass,  until  the  appropriate  number 
of  investment  classes  was  inferred.  Nevertheless,  this 
attempt  failed  because  of  the  inablility  to  rank 
investments  when  multiple  classes  were  inferred  during  a 
single  iteration.  Therefore,  for  these  reasons  the 
election  of  investment  classes  by  strict  inference 
procedures  was  abandoned  in  favor  of  using  a  numerical 
algorithm. 

Storage  of  Numerical  Values 

The  problem.  As  noted  earlier,  numerical  values  used 
in  the  investment  selection  algorithm  are  stored  as  a  part 
of  the  production  rules  within  the  knowledge  base  itself. 
Even  though  investment  classes  are  not  directly  inferred, 
production  rules  still  exist  that  can  be  used  to  explain 
why  a  particular  investment  was  selected.  Since  a  rule 
exists  for  each  investment  class,  these  rules  provide  a 
convenient  storage  medium  for  the  evaluation  score  computed 
for  each  investment  class.  Rules  inferring  client 
constraints  also  represent  a  convenient  medium  for  storing 
the  numerical  values  associated  with  each  client 
constraint.  These  values  can  be  stored  in  a  variety  of 
ways . 

Solution  chosen.  The  design  implemented  in  FINPLAN 
stores  these  values  as  dotted  pairs.  For  example,  an 


inference  for  blue  chip  stocks,  with  an  evaluated  score  of 
22,  would  be  represented  as:  (BLUE  CHIP  STOCKS  .  22). 


The  utilization  of  dotted  pairs  is  memory  efficient. 

The  storage  of  the  above  representation  consumes  three 
cons-cells;  any  other  representation  would  consume  at  least 
four  cells.  Also,  this  representation  provides  a 
convenient  means  to  print  the  contents  of  an  assertion 
without  displaying  the  numerical  value  itself.  This 
advantage  is  useful  for  execution  of  the  explanation 
facility,  and  is  accomplished  by  using  the  IQLISP  function 
MAPCAR.  MAPCAR  and  its  related  IQLISP  functions  apply 
themselves  to  the  CAR's  of  successive  tails  of  their  list 
arguments,  thereby  ignoring  the  CDR  of  each  argument's  last 
cons-cell.  Any  other  representation  would  have  required 
additional  code,  with  correspondingly  slowe-r  processing 
time,  in  order  to  preclude  the  stored  values  from  being 
printed.  Furthermore,  each  value  stored  as  a  dotted  pair 
still  is  easily  accessed  by  retrieving  the  CDR  of  the  last 
element  within  the  assertion.  Each  assertion  (fact)  is 
represented  by  a  list  of  elements,  and  IQLISP  conveniently 
provides  a  function  for  directly  retrieving  the  last 
element  of  any  list. 

Alternative  solutions.  Numerical  values  used  by  the 
investment  selection  algorithm  also  could  be  stored  in  each 
clause  as  a  separate  element.  The  last  element  is 
preferable  due  to  its  ease  of  access.  Nevertheless,  an 
extra  cons-cell  would  be  required  for  each  value,  and 
special  code  would  be  required  to  print  the  contents  of 
each  clause  without  displaying  the  value  itself.  Another 


CHAPTER  V 

SUGGESTED  IMPROVEMENTS  FOR  FINPLAN 


Introduction 

Because  the  development  of  FINPLAN  represents  the  first 
effort  to  program  an  expert  system  handling  personal 
financial  planning,  a  perfected  and  comprehensive  system 
was  never  expected.  Furthermore,  the  time  permitted  for  a 
thesis  development  and  the  unavailability  of  aid  from  a 
human  expert  in  the  financial  field  also  precluded  the  hope 
for  a  complete  and  commercially  usable  system. 

Nevertheless,  a  hope  is  that  another  person  or  student, 
sometime  in  the  future,  will  take  the  current  status  of 
this  effort  and  advance  it  several  steps  further.  For  this 
reason,  and  in  order  to  complete  a  fair  assessment  of 
FINPLAN,  the  following  paragraphs  in  this  chapter  identify 
and  briefly  discuss  limitations  and  suggested  improvements 
relating  to  the  current  system. 

Limitations  and  Improvements 

More  Tasks 

FINPLAN  should  address  additional  tasks  associated  with 
personal  financial  planning.  Besides  inferring 
recommendations  regarding  an  investment  portfolio,  the 
current  system  addresses  only  the  amount  of  life  insurance 
needs  as  a  representative  task  for  the  class  of  numerically 


oriented  problems.  Financial  planning  also  encompasses 
many  other  tasks  within  this  class.  The  determination  of 
net  worth  and  the  development  of  a  cash  budget  may 
represent  further  relevant  tasks  for  financial  planning. 
Additional  forms  of  insurance,  such  as  health  and 
homeowner's  coverage,  also  may  be  included  in  a  more 
comprehensive  system.  Not  only  determining  adequate 
amounts  of  insurance  coverage  is  an  important 
consideration,  as  FINPLAN  currently  does  for  life 
insurance,  but  providing  advice  related  to  alternative 
types  of  insurance  plans  and  the  amount  of  deductibles 
could  also  be  covered.  Additionally,  developing  financing 
plans  for  real  estate,  including  the  client's  own  home, 
could  fall  within  the  purview  of  a  more  comprehensive 
financial  planning  expert  system. 

Aspects  of  financial  planning  are  wide  and  varied,  and 
not  all  pertinent  tasks  within  this  domain  are  mentioned 
here.  Nevertheless,  the  fact  remains  that  FINPLAN  must  be 
expanded  to  cover  additional  tasks,  if  it  is  to  evolve  into 
a  comprehensive,  complete,  and  commercially  usable  expert 
system  for  financial  planning  purposes. 

Expansion  of  Production  Rules 

The  lines  of  reasoning  currently  incorporated  in 
FINPLAN  are  often  sparse  and  sometimes  show  trivial  logic. 
This  result  is  a  reflection  of  the  quality  and  depth  of  the 
production  rules  themselves.  It  should  be  noted,  however, 


that  the  primary  purpose  of  FINPLAN  is  not  to  embody 
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heuristic  knowledge  expressing  subtle,  detailed  rules  known 
only  to  a  handful  of  human  experts.  Rather,  its  purpose  is 
to  demonstrate  the  feasibility  of  implementing  expert 
system  concepts  in  the  domain  of  financial  planning. 
Therefore,  design  features  represent  the  primary  focus,  and 
the  present  absence  of  high  performance  can  be  tolerated. 

If,  however,  FINPLAN  evolves  into  a  more  comprehensive 
and  useful  system,  its  performance  must  be  upgraded  by 
improving  the  quality  and  scope  of  its  production  rules. 
Only  a  human  expert  can  impart  the  type  of  knowledge 
required  for  this  enhancement.  In  addition  to  expanding 
the  knowledge  base,  a  human  expert  also  may  recommend 
improvements  in  the  basic  approach  taken  by  FINPLAN  in 
solving  some  of  its  tasks.  For  example,  in  the  investment 
portion  of  the  program,  an  expert  may  recommend  that  either 
more  or  different  types  of  constraints  be  considered  than 
the  seven  constraints  FINPLAN  currently  uses. 

Better  Input  Procedures 

In  many  cases  FINPLAN  allows  the  client  to  dictate  his 
own  desired  constraint  characterizations  during  the  course 
of  the  interactive  dialog,  even  when  the  client  may  not 
have  enough  competence  to  respond  wisely.  For  example,  in 
the  investment  portion  of  the  program,  FINPLAN  blindly 
accepts  one  of  four  primary  investment  objectives  as 
indicated  by  the  client.  In  the  event  the  client  is  not 
sure  of  which  objective  would  be  best  suited  for  him,  no 
provisions  exist  which  could  make  further  inquiries  and 


Jk.  A-i.’  *  -  » 


offer  guidance  to  the  client  for  selecting  the  optimal 
choice.  Situations  of  this  kind  offer  excellent 


opportunities  to  employ  expert  system  concepts  in  an 
environment  where  such  concepts  are  most  appropriate.  This 
approach  is  illustrated  to  some  extent  by  inferences  made 
by  FINPLAN  in  determining  the  client's  need  for  liquidity 
and  skill  level,  but  additional  heuristics  should  be 
included  to  infer  other  types  of  input  data  during  the 
course  of  the  interactive  dialog.  Again,  however,  a 
qualified  human  expert  is  needed  in  order  to  implement  this 
kind  of  improved  input  procedures. 

A  Self-help  Facility 

The  current  system  makes  no  provision  for  a  self-help 
facility.  Some  type  of  a  help  facility  may  be  useful  where 
detailed  definitions  of  financial  terms  or  explanations  of 
concepts  could  be  offered  on  demand. 

Recursive  Explanation  Facility 

Currently,  FINPLAN  provides  an  explanation  facility 
that  allows  a  single  line  of  reasoning  to  be  traced  through 
as  many  levels  of  inferences  as  necessary  in  order  to  reach 
its  origin.  The  explanation  procedure  is  executed 
iteratively.  A  drawback  of  iteration  is  that  only  one 
item,  displayed  at  any  given  level  of  explanation,  can  be 
traced  backward  to  find  the  reason  for  its  inference.  In 
order  to  return  to  the  same  level  of  explanation  so  that  a 
second  or  third  item  also  can  be  traced  backwards,  the  user 
must  first  return  to  the  top  level  and  work  his  way  back  to 


the  level  in  question.  Implementation  of  a  recursive 
explanation  procedure  would  resolve  this  inconvenience.  I 
should  be  noted,  however,  that  in  order  to  operate 
effectively  a  recursive  explanation  facility  would  require 
a  more  complicated  set  of  instructions  than  the  user  faces 
currently.  Nevertheless,  the  adoption  of  such  a  procedure 
should  be  considered  in  the  development  of  a  more  complete 
and  usable  expert  system. 

Internal  Representation  of  Knowledge 


Many  sophisticated  expert  systems  encode  rules  of 
knowledge  in  rigorous  mathematical  notation.  FINPLAN  does 
not  take  this  approach,  and  uses  a  simpler  design  which 
encodes  all  assertions  and  rules  directly  in  English.  The 
following  example  illustrates  a  more  sophisticated,  yet 
typical  representation  scheme  used  in  many  other  expert 
systems : 

English  version  - 

(IF  ((YOUR  PORTFOLIO  SHOULD  BE  AGGRESSIVE) 

(DESIRE  TO  PARTICIPATE  IS  HIGH) 

(AVAILABLE  CAPITAL  IS  $12000  OR  MORE)) 

(THEN  ((DIVERSIFICATION  CAN  BE  HIGH))) 


Internal  code  - 

PREMISE:  ($AND  (SAME  PORTFOLIO  SHOULD-BE  AGGRESSIVE) 

(SAME  DESIRE  IS  HIGH) 

(SAME  CAPITAL  GTE  12000)) 

ACTION:  (CONCLUDE  DIVERSIFICATION  CAN-BE  HIGH) 


The  premise  of  the  internal  code  represents  a  Boolean 
combination  of  one  or  more  clauses  (in  this  case  the 
Boolean  function  AND  identified  by  $).  Each  clause  forms  a 


predicate  function  with  an  associative  triple  (object, 
attribute,  value)  as  its  argument.  In  the  first  clause 


above,  the  predicate  function  is  SAME,  followed  by  the 
object  PORTFOLIO,  attribute  SHOULD-BE  and  the  value 
AGGRESSIVE. 

Utilization  of  internal  code  similar  to  the  above 
representation  scheme  allows  efficient  and  flexible 
manipulation  of  the  knowledge  base.  For  example,  the 
Boolean  function  OR  could  also  be  used  in  a  production  rule 
in  addition  to  AND,  to  which  FINPLAN  is  currently 
restricted.  A  special  language  processor  is  needed  when 
internal  representation  is  used,  however,  so  that  the 
encoded  information  can  be  translated  into  a  more  readable 
English-like  version  for  any  interaction  with  the  user. 
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APPENDIX  A 

LIST  OF  FILE  CONTENTS 


The  source  code  listings  are  segregated  into  multiple 
files,  where  each  file  contains  several  functions.  The 
following  table  lists  the  name  (and  type)  of  each  file  in 
alphabetical  order,  and  all  functions  contained  in  each 
file. 

TABLE  A-l:  FILE  CONTENTS 


FILE 

FUNCTIONS 

FILE 

FUNCTIONS 

CONTROL. LSP 

MEMBEROF 

DO-INV.LSP 

DO-INVESTMENTS 

RECALL 

SHOW-CONSTR 

TESTIF 

INQUIRE-CONSTR 

ADDTHEN 

SHOW-INV 

TRYRULE 

INQUIRE-INV 

FORWARDCHAIN 

INIT.LSP 

INITIALIZE 

PR 

INS. LSP 

INS-INTERVIEW 

PR-TEXT 

INTRO. LSP 

INTRO 

PR-SCREEN 

SEL 

HOW 

CONT 

THENP 

DESCRIP 

INQUIRE 

INVEST. LSP 

INVESTMENT- 

FIND 

RULELIST 

MATCH 

I-PAR.LSP 

INV-PARAM 

ADD 

I-RULE . LSP 

INS-RULELIST 

ANS 

LOAD. LSP 

LOAD 

CONV.LSP 

CONVERT- 

QUERY. LSP 

I NV- INTER VIEW 

CONSTRAINTS 

RANK. LSP 

RANK-INV 

C-RULE . LSP 

CONSTRAINT- 

EVAL-INV 

RULELIST 

SORT 

DO-INS. LSP 

DO-INSURANCE 

SORT-INVS 

SHOW-INS 

RUN. LSP 

RUN 

INQUIRE-INS 

WAIT 

STOP-WAIT 

CHOICE 

APPENDIX  B 

FUNCTION  DESCRIPTIONS 


Descriptions  of  all  source  code  functions,  arranged  in 
alphabetical  order,  are  listed  below. 

ADD:  This  function  adds  the  clause  represented  by  NEW  to 
FACTS  (the  global  data  base)  unless  NEW  is  already  in 
FACTS.  If  NEW  is  already  present,  NIL  is  returned. 

ADDTHEN:  This  function  adds  each  THEN  clause  of  RULE,  if 

not  already  on  FACTS  list,  to  FACTS  list. 

ANS:  This  function  helps  to  print  alternative  responses  to 

questions  asked  the  user.  The  numeric  NO  is  printed, 
followed  by  the  expression  PHRASE. 

CHOICE:  This  function  defines  a  message  displayed  with 

intermediate  and  final  output  in  both  the  insurance  and 
investment  portions  of  the  program.  The  user  is  given  a 
choice  to  either  inquire  about  the  current  output  or 
continue  with  the  program.  If  the  user  chooses  to  inquire 
about  the  output,  this  function  calls  an  appropriate 
function  that  controls  the  explanation  facility. 

CONSTRAINT-RULELIST :  This  function  infers  a 
characterization  value  for  each  of  seven  user  constraints 
later  used  to  select  investment  classes.  Three  separate 
knowledge  bases  are  defined,  inferences  are  made,  and 
numerical  values  are  assigned  to  be  used  by  the  investment 
selection  algorithm. 

CONT:  This  function  displays  a  message  and  allows  the 
system  to  wait  until  the  user  responds  by  striking  any  key. 

CONVERT-CONSTRAINTS:  This  function  defines  and  infers  a 

knowledge  base  used  to  convert  established  user  constraint 
characterizations  into  terms  used  in  the  investment 
selection  knowledge  base  (INVESTMENT-RULES).  This 
conversion  is  necessary  because  inferences  are  based  on 
exact  matches.  In  addition,  this  conversion  provides  a 
more  appropriate  phraseology  for  the  explanation  facility. 

DESCRIP:  This  function  displays  a  description  of  FINPLAN 
on  the  screen  for  the  user  to  review,  at  his  option. 
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DO-INSURANCE:  This  function  controls  the  entire  insurance 
segment  of  the  program.  It  loads  all  appropriate  files  and 
calls  all  functions  needed  to  conduct  the  interview, 
perform  calculations,  make  inferences,  and  provide  a 
framework  for  executing  the  explanation  facility. 

DO-INVESTMENT:  This  function  controls  the  entire 
investment  segment  of  the  program.  It  loads  all 
appropriate  files  and  calls  all  functions  needed  to  conduct 
the  interview,  make  inferences,  rank  investment  classes, 
and  show  results.  It  also  provides  a  framework  for 
executing  the  explanation  facility. 

EVAL-INV:  This  function  applies  the  investment  selection 

algorithm  to  the  investment  class  contained  in  RULE. 


I 


FIND:  This  function  returns  the  first  clause  (a  fact)  from 

the  global  data  base  that  matches  the  pattern  specified  by 
PATTERN.  PATTERN  is  comprised  of  a  partial  clause  with  any 
combination  of  words  missing.  If  PATTERN  cannot  be  matched 
in  the  global  data  base,  NIL  is  returned. 


FORWARDCHAIN :  This  function  makes  all  possible  inferences 

in  a  knowledge  base  by  applying  TRYRULE  to  each  rule  in 
RULELIST. 


HOW:  This  function  represents  the  primary  procedure  used 

by  the  explanation  facility.  It  searches  RULES-USED  to 
find  the  rule  which  inferred  FACT  and,  if  the  appropriate 
rule  is  found,  returns  each  clause  in  the  IF  portion  of  the 
rule.  If  the  rule  is  not  found,  appropriate-  messages  are 
displayed  depending  on  whether  FACT  exists  in  the  global 
data  base. 


INITIALIZE:  This  function  defines  the  windows  used 
throughout  the  program,  and  initializes  global  variables. 


INQUIRE:  This  function  controls  the  processing  of  the 

explanation  facility.  It  processes  user  input  and 
conditionally  executes  the  HOW  function  with  an  appropriate 
argument  so  the  desired  item  is  explained. 

INQUIRE-CONSTR :  This  function  provides  a  framework  for 
executing  the  explanation  facility  for  inquiries  about  the 
user's  investment  constraints.  It  conditionally  calls  the 
HOW  function  with  an  appropriate  argument  so  that  the 
desired  constraint  is  explained. 

INQUIRE-INS:  This  function  provides  a  framework  for 

executing  the  explanation  facility  for  insurance  inquiries. 
It  conditionally  calls  the  HOW  function  with  an  appropriate 
argument  so  that  the  desired  item  is  explained. 


Vvl 


INQUIRE-INV:  This  function  provides  a  framework  for 

executing  the  explanation  facility  for  inquiries  about  the 
final  investment  recommendations.  It  conditionaly  calls 
the  HOW  function  with  an  appropriate  argument  so  that  the 
desired  recommendation  is  explained. 

INS-INTERVIEW:  This  function  interactively  conducts  an 
interview  with  the  user  in  order  to  gather  basic 
information  relating  to  the  user's  life  insurance  needs. 
Local  variables  used  in  the  insurance  algorithm  also  are 
assigned  appropriate  values,  and  the  algorithm  itself  is 
executed . 

INS-RULELIST:  This  function  defines  the  body  of  production 

rules  used  in  the  insurance  segment  of  the  program. 

Initial  facts  are  added  to  the  global  data  base,  and  all 
rules  of  INS-RULES  are  forward  chained  in  order  to  make  all 
possible  inferences.  (These  inferences  are  used 
predominantly  to  explain  the  insurance  algorithm.) 

INTRO:  This  function  defines  the  graphics  (composed  of 

windows)  displayed  at  system  start-up.  It  conditionally 
calls  a  function  which  describes  FINPLAN  or  immediately 
begins  a  main  program  segment,  depending  on  the  wishes  of 
the  user. 

INVESTMENT-RULELIST:  This  function  defines  the  knowledge 
base  containing  all  investment  classes  that  are  considered 
in  the  investment  segment  of  the  program.  Each  rule  is  not 
implemented  as  a  production  rule,  and  no  inferences  are 
made.  Instead,  each  rule  is  used  in  the  investment 
selection  algorithm  and  by  the  explanation  facility. 

INV-INTERVIEW:  This  function  interactively  conducts  an 
interview  with  the  user  in  order  to  gather  basic 
information  used  in  the  investment  segment  of  the  program. 
Responses  are  added  to  the  global  data  base  so  that  future 
inferences  can  be  made. 

INV-PARAM:  This  function  defines  three  separate  knowledge 
bases  and  makes  all  possible  inferences  from  them  in  order 
to  determine  the  appropriate  degree  of  diversification  for 
the  user's  investment  portfolio.  Dollar  amounts  for 
investments  also  are  numerically  calculated  by  this 
function . 

LOAD:  This  function  loads  the  file  specified  by  FILE  into 

the  IQLISP  environment. 

MATCH:  This  function  is  used  by  FIND  to  test  whether  the 
pattern  represented  by  PAT  matches  the  clause  ASSERT,  which 
represents  a  fact  within  the  global  data  base- 


MEMBEROF:  This  function  returns  T  (TRUE)  if  X  is  a  member 
of  the  list  Y. 

PR:  This  function  prints  the  expression  EXP1  immediately 

followed  by  the  literal  LIT  on  the  same  line  in  window 
WIND. 

PR-SCREEN :  This  function  prints  the  current  value  of  NUMB 

(the  next  ordered  line  number  used  in  the  explanation 
facility),  followed  by  followed  by  the  contents  of  the 

clause  A.  NUMB  is  incremented  for  the  next  time  this 
function  is  called. 

PR-TEXT:  This  function  prints  each  element  within  the  list 

EXP  on  the  same  line.  It  is  used  to  print  the  textual 
contents  of  a  clause  contained  in  a  rule. 

RANK-INV:  This  function  evaluates  each  investment  class 

included  in  INVESTMENT-RULELIST  in  accordance  with  the 
investment  selection  algorithm,  and  records  the  evaluated 
score  for  each  investment  in  INVESTMENT-RULELIST.  It 
performs  the  evaluations  by  calling  EVAL-INV. 

RECALL:  This  function  returns  T  (TRUE)  if  FACT  is  a  member 

of  the  global  data  base  (FACTS),  else  it  returns  NIL. 

RUN:  The  RUN  function  represents  the  main  body  of  the 

program.  It  initializes  and  executes  each  of  the  main 
segments  of  the  program:  the  introduction,  the  insurance 
segment,  and  the  investment  segment. 

SEL:  This  function  displays  a  message  on  the  screen, 

providing  instructions  to  the  user.  A  numeric,  NO,  is 
printed,  followed  by  PHRASE  on  the  same  line  in  the  window 
specified  by  WIND. 

SHOW-CONSTR:  This  function  displays  the  intermediate 

inferences  characterizing  the  user's  profile  of  investment 
constraints.  These  contraints  are  later  used  to  rank 
investment  classes. 

SHOW-INS:  This  function  displays  the  insurance  output. 

SHOW-INV:  This  function  displays  the  final  investment 

recommendations . 

SORT:  This  function  scans  all  investments  in 

INVESTMENT-RULES  and  sets  a  pointer  PTR  to  the  investment 
with  the  lowest  (highest  ranked)  evaluation  score.  The 
score  of  the  chosen  investment  is  then  changed  to  the 
exceedingly  large  quantity  of  500  so  that  a  subsequent 
execution  of  this  function  will  select  another  investment 
with  the  next  lowest  evaluation  score.  Also,  the  rule 
containing  the  chosen  investment  is  added  to  RULES-USED. 


SORT-INVS:  This  function  applies  SORT  four  times  so  that 

pointers  are  set  to  the  four  investment  classes  with  the 
four  lowest  (highest  ranked)  evaluation  scores. 

STOP-WAIT:  This  function  clears  the  wait  message 

(generated  by  WAIT)  from  the  screen. 

TESTIF :  This  function  returns  T  (TRUE)  if  all  IF  clauses 

of  RULE  are  part  of  the  global  data  base,  else  it  returns 
NIL. 

THENP:  This  function  returns  T  (TRUE)  if  FACT  is  present 

in  the  THEN  portion  of  RULE. 

TRYRULE:  This  function  tests  whether  RULE  is  applicable  by 

calling  TESTIF.  If  RULE  applies,  it  attempts  to  add  each 
THEN  clause  to  the  FACTS  list  by  calling  ADDTHEN,  and 
returns  T. 

WAIT:  This  function  defines  a  wait  message  which  is 

displayed  on  the  screen  as  the  program  performs  internal 
processing . 


--  or  • 


FILE:  CONTROL. LSP 


•MEMBEROF 
(LAMBDA  (X  Y) 

(SUBSET  '(LAMBDA  (2)  (EQUAL  X  2))  Y)>) 
' RECALL 

’  C LAMBDA  (.FACT) 

(COND 

C (MEMBEROF  FACT  FACTS) 

FACT! 

CT 

NIL})]) 

'TESTIF 

'I LAMBDA  (RULE) 

CPROO  ( IFS) 

(SETQ  IFS 

(CDR  (CADDR  PULE))) 

LOOP 

(COND 

C (NULL  IFS) 

(RETURN  T) I 
I ( RECALL  (CAR  IFS)) 

1 

CT 

(RETURN  NIDI) 

(SETQ  IFS 

(CDR  IFS)) 

(SO  LOOP)  ID 

'oODTHEN 
'  t LAMBDA  (RULE) 

IPROG  (THENS  SUCCESS) 

(SETQ  THENS 

(CDR  (CAR  (CODDR  RULED)) 

LOOP 

(COND 

C (NULL  THENS) 

(RETURN  SUCCESS)! 

C (ADD  (CAR  THENS)) 

(SETQ  SUCCESS  T) D 
(SETQ  THENS 

(CDR  THENS >  > 

(GO  LOOP))!) 

'TPYPULE 
'C LAMBDA  (RULE) 

CCND 

C (TESTIF  RULE) 

ADDTH.EN  RULE) 

•SETQ  RULcS-USED 

'CONS  RULE  RULES-U3ED) > 

TDD 

-  FCRLIARDCHAiN 
'  C  LAMBDA  'SULcLIST; 

C  PROG  < RULES > 

-SETQ  RULES  RULELIST. 


•.V>V  \VaV  '.v'aV  'n' V* j s’  s'. \ *>.*V 


LOOP 

(CONO 

C (NULL  RULES) 

< RETURN  NIL)] 

UTRYRULE  (CAR  RULES)) 

1) 

CSETQ  RULES 

(COR  RULES)) 

<30  LOOP)]]) 

(DEF  'PR 

' t LAMBDA  (EXP1  LIT  WIND) 

(PRINTC  *  *  WIND) (PRINC  EXP1  WIND) 

(PRINC  LIT  WIND)]) 

».DEF  '  PR-TEXT 
' C LAMBDA  (EXP) 

(MAPC  ' (LAMBDA  (X) 

(PRINC  X  WIN) (PRINC  *  *  WIN)]  EXP)]) 

(DEF  'PR-SCREEN 
'(LAMBDA  (A) 

(PR  NUMB  *  -  *  WIN) (PR-TEXT  A) 

(CONO 

((EQUAL  NUMB  IXSETQ  ONE  A)  > 

((EQUAL  NUMB  2XSETQ  TWO  A)) 

((EQUAL  NUMB  3XSETQ  THR  A)) 

<< EQUAL  NUMB  4XSETQ  FOU  A)  ) 

<< EQUAL  NUMB  SXSETQ  F1V  A)) 

(  <  EQUAL  NUMB  4XSETQ  SIX  A>> 

((EQUAL  NUMB  7XSETQ  SEV  A)) 

((EQUAL  NUMB  8XSETQ  E1G  A)) 

((EQUAL  NUMB  9XSETQ  NIN  A)  )  > 

( SETQ  NO-REA  (AOOI  NO-REA)) 

<  SETQ  NLM8  (ADD1  NUMB) ) ) ) 

(DEF  'POW 

'CLAMBOA  (FACT) 

CPROG  (POSSIBILITIES  SUCCESS  WIN) 

(SETQ  POSSIBILITIES  RULES-USED) 

(SETQ  WIN  W4XWINCLR  W4) 

LOOP 

(COND 

((NULL  POSSIBILITIES) 

(CONO 

(SUCCESS 
(RETURN  T)] 

((RECALL  FACT) 

(PRINTC  *  *  WINX PR-TEXT  FACT- 

-  (PRINTC  ■*  •***  *ith*r  ii  t^*  o 

f  5 . v*n.‘  W4) 

(WINCLR  U4) (PRINTC  •  “  W6> 

(PRINTC  *  StP:K*  any  k»y  to  contirut  .  . 

(CLRBFI )  <  SETQ  ;<  <TYI  W4)XSETQ  STATUS  'LOR-DONE) 

(RETURN  T> ] 

:t 

(PRINTC  *  *  'JINX PR-TEXT  FACT) 

•  (PRINTC  *  i*  not  *n  «*t*t»l  ;  *fi*d  con«t-«irit  for  /our  tit 

uit  •  -:r> .  'still.*  :> 

-  (PRINTC  ’  thi»  nv**tm*nt  c’.  4  5»*t  »cr  ou  fca»»<3  <j 

'our  ot**r  *  >14) 

<  PRINTC  *  constrain:*.'  *'J) 


(UINCLR  W4X  PRINTC  *  *  W6> 

< PRINTC  *  Strike  *ny  Key  to  continue  .  .  W6> 

(CLRBFI  )  <  SETQ  X  <TYI  U6)XSETQ  STATUS  'LOR-DONE) 

< RETURN  T>3)3 
t (THENP  FACT 

< CAR  POSSIBILITIES) > 

(SETQ  SUCCESS  TXSETQ  STATUS  'KEEP-GOING) 

(PRINTC  *  ■  WINXPR-TEXT  FACT) 

(PRINTC  *  w*t  deduced  •from  th#  'following:*  W4) 

(PRINTC  *  *  W4XSETQ  NUMB  1XSETQ  NO-REA  0) 

(MAP CAR  'PR-SCREEN 

(COR  ( CADDR  (CAR  POSSIBILITIES) )>) 3 ) 

(SETQ  POSSIBILITIES 

(COR  POSSIBILITIES)) 

(GO  LOOP) 33) 

(OEF  'THENP 

'C LAMBDA  (FACT  RULE) 

(MEMBEROF  FACT 

(CDAR  ( CDDDR  RULE) > ) 3 ) 

(OEF  'INQUIRE 
' l LAMBDA  ( ) 

( PF.00  <  > 

< SETQ  STATUS  'KEEP-GOING) 

AGAIN 

(UINCLR  U4XUINATTR  120  U4> 

(  PRINTC  *  Enter  line  number  of  item  you  wish  to  question,*  U4> 
(PRINTC  *  else  enter  X*  U4) 

<  CLRBFI )  <  SETQ  X  <TY!  U <S)> 

(CCND 

((OR  (EQUAL  X  *X* )  ( EQUAL  X  *x*)X3ETa  STATUS  ' LOR-DONE) > 

((GT  (CHRVAL  XX*  48  NO-REA)  )(BEEPX GO  AGAIN)  ) 

((EQUAL  X  *  1  *  X  HOU  ONE)) 

((EQUAL  X  * 2 * ) ( HOW  TWO)) 

((EQUAL  X  " 3 " ) ( HOW  THR)) 

((EQUAL  X  * 4 * ) ( HOU  FOU)> 

((EQUAL  X  “ 5 “ ) ( HCU  FIV)> 

((EQUAL  X  * 4 " ) ( HOW  SIX)) 

((EQUAL  X  "  7  *  X  HOU  3EU>  > 

((EQUAL  X  *8*)  (HOU  EIG)> 

((EQUAL  X  *?*XHOW  NIN)  > 

<T  (BEEP) (GO  AGAIN) >> 

(CONO 

((EQUAL  STATUS  'KEEP-GOING) ( 30  AGAIN)) 

((EQUAL  STATUS  'EXIT)  NIL) 

((EQUAL  STATUS  'LOR-OCME)  NIL))) 3) 

(OEF  ' FI NO 

'■.LAMBDA  (PATTERN) 

(PROG  -.FACTLIST) 

(SETQ  FACTLIST  FACTS) 

LGCP 
•'  CCNO 

( ' NULL  FrtCTL I ST X PSTUFM  NIL/ > 

('.MATCH  PATTERN  (CAR  FACTLIST)  >  (RETURN  (CaR  FACTLIST;.  ,  , 

(SETQ  FACTLIST  -COR  FACTLIST); 

-  SO  LOOP) >  > ) 


< DEF  'MATCH 

'I LAMBDA  ( PAT  ASSERT) 

< COND  (<<*40  (NULL  PAT) < OR  (NULL  ASSERT) (NUMBERP  ASSERT)))  T) 
((OR  (NULL  PAT) (OR  (NULL  ASSERT) (NUMBERP  ASSERT)))  NIL) 
((OR  (EQUAL  (CAR  PAT)  ' > > ( EQUAL  (CAR  PAT ) ( CAR  ASSERT))) 
(MATCH  (CDR  PAT) (COR  ASSERT))) 

((EQUAL  (CAR  PAT)  '♦) 

(COND  ( (MATCH  (CDR  PAT) (COR  ASSERT) > > 

((MATCH  PAT  (CDR  ASSERT! ) 

(DEF  'ADO 

'(LAMBDA  (NEW) 

(COND 

C (MEMB  NEW  FACTS) 

NIL! 

(T 

(SETQ  FACTS 

(CONS  NEW  FACTS)) 

(SETQ  TEMPLIST 

(CONS  NEW  TEMPLIST))!) ]> 


(DEF  'ANS 

' C LAMBDA  (NO  PHRASE  WIND) 

[PROG  (POS) 

(PRINTC  ‘  *  WIND) (PRINTC  *  *  WIND) 

(SETQ  POS  (UINCURS  NIL  WIND) ) (UINPOS  POS  W7> 
(PRINC  NO  W7) 

(WINCURS  (LIST  (CAR  POSXAODl  (CAOR  POS)>>  WIND) 
(PRINC  *  *  WIND) (PRINC  PHRASE  WIND)!!) 


a 


FILE i  CONV.LSP 


(OEF  'COWERT- CONSTRAINTS 
•  [  LM180A  ( > 

t PROG  (RULE-CONVERSION) 

(SETQ  RULE -COWERS  I  ON 

'((RULE  1  (IF  (FINANCIAL  RISK  SHOULD  BE  LOU  .  10>> 

(THEN  (FINANCIAL  RISK  IS  LOU  .  10) >> 

(RULE  2  (IF  (FINANCIAL  RISK  CAN  BE  MODERATE  .  20) ) 

(THEN  (FINANCIAL  RISK  IS  HO0ERATE  .  20) >) 

(RULE  3  (IF  (FINANCIAL  RISK  CAN  BE  HI8H  .  30) > 

(THEN  (FINANCIAL  RISK  IS  HIGH  .  30)>) 

(RULE  4  (IF  (OBJECTIVE  SHOULD  BE  INCOME  .  3>) 

(THEN  (OBJECTIVE  OF  INCOME  IS  SATISFIED  .  S>)> 

(RULE  3  (IF  (OBJECTIVE  SHOULD  BE  RETIREMENT  SECURITY  .  10) > 

(THEN  (OBJECTIVE  OF  RETIREMENT  SECURITY  IS  SATISFIED  .  10))) 
(RULE  4  (IF  (OBJECTIVE  SHOULD  BE  GROUTH  .  13) ) 

(THEN  (OBJECTIVE  OF  GROUTH  IS  SATISFIED  .  1S>>> 

(RULE  7  (IF  (OBJECTIVE  SHOULD  BE  SPECULATION  .  20 )) 

(THEN  (OBJECTIVE  OF  SPECULATION  IS  SATISFIED  .  20) )) 

(RULE  8  (IF  (TAX  EXEMPTION  SHOULD  BE  HIGH  .  4>) 

(THEN  (TAX  ADVANTAGE  IS  HIGH  .  4)>) 

(RULE  9  (IF  (TAX  EXEMPTION  IS  MODERATELY  IMPORTANT  .  3)) 

(THEN  (TAX  ADVANTAGE  IS  MODERATE  .  8))) 

(RULE  10  (IF  (TAX  EXEMPTION  IS  NOT  IMPORTANT  .  12) ) 

(THEN  (TAX  ADVANTAGE  IS  LOU  .  12))) 

(RULE  11  (IF  (INFLATION  PROTECTION  SHOULD  BE  HIGH  .  3>) 

(THB4  (INFLATION  PROTECTION  IS  HIGH  .  3) > > 

(RULE  12  (IF  (INFLATION  PROTECTION  IS  MODERATELY  IMPORTANT  .  4)) 
(THEN  (INFLATION  PROTECTION  IS  MODERATE  .4))) 

(RULE  13  (IF  (INFLATION  PROTECTION  IS  NOT  A  CONSIDERATION  .  9>> 
(THEN  (INFLATION  PROTECTION  IS  LOU  .  9>>> 

(RULE  14  (IF  (LIQUIDITY  SHOULD  BE  HIGH  .  2) > 

(THEN  (LIQUIDITY  IS  HIGH  .2))) 

(RULE  13  (IF  (LIQUIDITY  SHOULD  BE  MODERATE  .  4) > 

(THEN  (LIQUIDITY  IS  MODERATE  .4))) 

(RULE  14  (IF  (LIQUIDITY  IS  NOT  A  CONSIDERATION  .  4) > 

(THEN  (LIQUIDITY  IS  LOU  .  4))) 

(RULE  17  (IF  (EFFORT  REQUIRED  SHOULD  BE  LOU  .  2)) 

(THEN  (EFFORT  REQUIRED  IS  LOU  .  2>>) 

(RULE  18  (IF  (EFFORT  REQUIRED  SHOULD  8E  MODERATE  .  4>> 

(THEN  (EFFORT  REQUIRED  IS  MODERATE  .  4>>> 

(RULE  19  (IF  (EFFORT  REQUIRED  CAN  BE  HIGH  .  4>> 

(THEN  (EFFORT  REQUIRED  IS  HIGH  .4))) 

(RULE  20  (IF  (SKILL  REQUIRED  SHOULD  NOT  BE  DEMANDING  .  2) > 

(THEN  (SKILL  REQUIRED  IS  NOT  DEMANDING  .  2)>) 

(RULE  21  (IF  (SKILL  REQUIRED  CAN  BE  MODERATE  .  4) > 

(THEN  (SKILL  REQUIRED  IS  MODERATE  .4))) 

(RULE  22  (IF  (SKILL  REQUIRED  0*1  BE  HIGH  .  4)> 

(THEN  (SKILL  REQUIRED  IS  HIGH  .  4>>>>> 

(FORUARDCHAIN  RULE-CONVERSION) 

(SETQ  RULE -COWER  SI  ON  NIL)  ID 


£ 


PILE l  C-RULE.L3P 


(DEF  'CONSTRAINT -RULELI ST 
-  [  LM1BOA  (  ) 

l PROS  (CLAUS  CONSTRAINTS  LI Q- DEFAULT  SKILL-DEFAULT) 

(SETO  CONSTRAINTS 
'((RULE  101 

(IF  (YOU  INDICATED  AN  OBJECTIVE  OF  GROWTH) > 

(THEN  (OBJECTIVE  SHOULD  BE  GROWTH  .  IS))) 

(RULE  102 

(IF  (YOU  INDICATED  AN  OBJECTIVE  OF  RETIREMENT  SECURITY)) 
(THEN  (OBJECTIVE  SHOULD  BE  RETIREMENT  SECURITY  .  10) )> 
(RULE  103 

(IF  (YOU  INDICATED  AN  OBJECTIVE  OF  INCOME) > 

(THEN  (OBJECTIVE  SHOULD  BE  INCOME  .  S)>> 

(RULE  104 

(IF  (YOU  INDICATED  AN  OBJECTIVE  OF  SPECULATION)) 

(THB1  (OBJECTIVE  SHOULD  SE  SPECULATION  .  20) )> 

(RULE  1S4 

(IF  (INCOME  IS  VERY  SECURE) 

(EMERGENCY  RESERVES  ARE  ADEQUATE)) 

(THEN  (LIQUIDITY  IS  NOT  A  CONSIDERATION  .  6) ) ) 

(RULE  1SS 

(IF  (INCOME  IS  MODERATELY  SECURE) 

(EMERGENCY  RESERVES  ARE  INADEQUATE) 

(YOU  ARE  A  MODERATE  RISK-TAKER)) 

(THEN  (LIQUIDITY  IS  NOT  A  CONSIDERATION  .  6>>> 

(RULE  ISO 

(IF  (INCOME  IS  MODERATELY  SECURE) 

(EMERGENCY  RESERVES  ARE  INADEQUATE) 

(YOU  ARE  AN  AGGRESSIVE  RISK-TAKER)) 

(THEN  (LIQUIDITY  SHOULD  BE  MODERATE  .  4 

))> 

(RULE  137 

(IF  (INCOME  IS  NOT  VERY  SECURE) 

(EMERGENCY  RESERVES  ARE  ADEQUATE) 

(YOU  ARE  A  CONSERVATIVE  RISK-TAKER)) 

(THEN  (LIQUIDITY  SHOULD  BE  HIGH  .  2>>) 

(RULE  133 

(IF  (INCOME  IS  NOT  VERY  SECURE) 

(EMERGENCY  RESERVES  ARE  ADEQUATE) 

(YOU  ARE  A  MODERATE  RISK-TAKER)) 

(THEN  (LIQUIDITY  SHOULD  BE  MODERATE  .  4 

) )  > 

(RULE  201 

(IF  (TAXABLE  INCOME  IS  LESS  THAN  *23000)) 

(THEN  (TAX  EXEMPTION  IS  NOT  IMPORTANT  .  12))) 

(RULE  202 

(IF  (TAXABLE  INCOME  IS  BETWEEN  *23000  AND  *43000) 

) 

(THEN  (TAX  EXEMPTION  IS  MODERATELY  IMPORTANT  .  3>>) 

(RULE  203 

(IF  (TAXABLE  INCOME  IS  MORE  THAN  *43000)) 

(THEN  (TAX  EXEMPTION  SHOULD  BE  HIGH  .  4)>> 

(RULE  231 

(IF  (ANTICIPATED  INFLATION  IS  LCW>> 

(THEN  (INFLATION  PROTECTION  IS  NOT  A  CONSIDERATION  .  *>) 
(RULE  232 

(IF  (ANTICIPATED  INFLATION  IS  MODERATE) ) 

(THEN  ( INFLATION  PROTECTION  IS  MODERATELY  IMPORTANT  .  s.' 
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(RULE  233 

< IF  (ANTICIPATED  INFLATION  IS  HI6H>> 

(THEN  (INFLATION  PROTECTION  SHOULD  BE  HIGH  .3))) 
(RULE  301 

(IF  (DESIRE  TO  PARTICIPATE  IS  LOU) > 

(THEN  (EFFORT  REQUIRED  SHOULD  BE  LOU  .  2>>> 

(RULE  302 

(IF  (DESIRE  TO  PARTICIPATE  IS  MODERATE)) 

(THEN  (EFFORT  REQUIRED  CAN  BE  MODERATE  .4))) 

(RULE  303 

(IF  (DESIRE  TO  PARTICIPATE  IS  HIGH)) 

(THEN  (EFFORT  REQUIRED  CAN  BE  HIGH  .  4) > ) 

(RULE  354 

(IF  (EXPERIENCE  LEVEL  IS  HIGH) 

(FINANCIAL  SERVICE  IS  CURRENTLY  USED)) 

(THEN  (SKILL  REQUIRED  0*4  BE  HIGH  .  4))) 

(RULE  333 

(IF  (EXPERIENCE  LEVEL  IS  MODERATE) 

(FINANCIAL  SERVICE  IS  CURRENTLY  USED)) 

(THEN  (SKILL  REQUIRED  CAN  BE  MODERATE  .  4) > > 

(RULE  401 

(IF  (YOU  ARE  A  CONSERVATIVE  RISK-TAKER)) 

(THEN  (FINANCIAL  RISK  SHOULD  BE  LOU  .  10))) 

(RULE  402 

(IF  (YOU  ARE  A  MODERATE  RISK-TAKER)) 

(THEN  (FINANCIAL  RISK  CAN  BE  MODERATE  .  20) >) 

(RULE  403 

(IF  (YOU  ARE  AN  AGGRESSIVE  RISK-TAKER)) 

(THEN  (FINANCIAL  RISK  CAN  BE  HIGH  .  30))))) 

(SETQ  LIQ-DEFAULT 
'((RULE  131 

(IF  (EMERGENCY  RESERVES  ARE  INADEQUATE) > 

(THEN  (LIQUIDITY  SHOULD  BE  HIGH  .  2>>> 

(RULE  132 

(IF  (EMERGENCY  RESERVES  ARE  MODERATELY  ADEQUATE)) 

(THEN  (LIQUIDITY  SHOULD  BE  MODERATE  .4))) 

(RULE  133 

(IF  (EMERGENCY  RESERVES  ARE  ADEQUATE) > 

(THEN  (LIQUIDITY  IS  NOT  A  CONSIDERATION  .  6>>>)> 

(SETQ  SKILL-DEFAULT 
'((RULE  331 

(IF  (EXPERIENCE  LEVEL  IS  HIGH)) 

(THEN  (SKILL  REQUIRED  CAN  BE  MODERATE  .  4))> 

(RULE  352 

(IF  (EXPERIENCE  LEVEL  IS  MODERATE)) 

(THEN  (SKILL  REQUIRED  SHOULD  NOT  BE  DEMANDING  .2))) 

< RULE  353 

(IF  (EXPERIENCE  LEVEL  IS  MINIMAL)) 

(THEN  (SKILL  REQUIRED  SHOULD  NOT  BE  DEMANDING  .  2) > ) > > 

< FORUARO CHA I N  CONSTRAINTS) 

(SETQ  CONSTRAINTS  NIL) 

(CONO  ((NOT  (FIND  '(LIQUIDITY  ♦>)> 

(FORUARDCHAIN  LIQ-DEFAULT))) 

( CCND  ((NOT  (FINO  '(SKILL  REQUIRED  ♦  )>> 

(FORUARDCHAIN  SKILL-DEFAULT))) 

' SETQ  SKILL-DEFAULT  NIL) 

(SE^Q  LIQ-DEFAULT  NIL.' 

•SETQ  CLAUS  < FIND  ' < OBJECTIVE  *>)) 

<  STORE  (GCAL  0)  <  COR  (LAST  CLAUS)).' 
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PILE:  00-INS. LSP 


<DEF  -DO- INSURANCE 
'  C  LAMBDA  () 

CPROG  (FUNERAL  C-OEBT  EMER6  C-FUNO  FEE  NO-COL  LIVING  NINETY  RATE 
SPOUSE  SOC-SEC  NET  TOT-LIV  TOT -MON  ASSETS  NEEDS  PORT) 

START 

(SETQ  MODE  ' INS-MODE) 

(WAIT) 

(LOAO  *Bt 1NS.LSP*  > 

(STOP -WAIT) 

(I NS- INTERVIEW) 

(WAIT) 

(DEF  'INS-INTERVIEW  NIL) 

(COND  ((EQUAL  MODE  ' INV-MQDE) ( RETURN  NIL))) 

(LOAO  *B» I-RULE .LSP* ) 

( JNS-RULELJ  ST) 

(DEF  ' INS— RULELIST  NIL) 

(STOP-WAIT) 

(SHOW-INS  Wl)  (CHOICE) 

(WAIT) 

(SETQ  FACTS  NIL) (SETQ  RULES-USED  NIL) 

(DEF  ' INQUI RE-INS  NIL) < DEF  'SHOW-INS  NIL)))) 

(DEF  'SHOW- INS 

' t LAMBDA  (WIND) 

(WINCLR  WIND) 

(PRINTC  *  ESTIMATING  YOUR  LIFE  INSURANCE  NEEDS:*  WIND) 

(PRINTC  *  *  WIND) 

(PRINTC  *  t  -  Funeral ,  estate  taxes,  etc.  **  WIND) 

(PRINC  FUNERAL  WIND) 

(PRINTC  *  2  -  Settle  non-mortgage  debt  (consumer  debt)  *  WIND) 

(PRINC  C-OEBT  WIND) 

(PRINTC  *  3  -  Emergency  •fund  *  WIND) 

(PRINC  EMERG  WINO) 

(PRINTC  *  4  -  College  fund  *  WIND) 

(PRINC  C-FUND  WIND) 

(PRINTC  *  3  -  Expected  living  expenses i"  WINO) 

(PRINTC  *  *  -  Average  annual  living  expense*  **  WIND) 

(PRINC  LIVING  WIND) 

(PRINTC  *  b  -  Spouse's  average  annual  income  *  WIND) 

(PRINC  SPOUSE  WIND) 

(PRINTC  "  c  -  Annual  Social  Security  benefits  *  WINO) 

(PRINC  SOC-SEC  WINO) 

(PRINTC  *  d  -  Net  annual  living  expenses  (a  -  b  -  c)*  WIND) 

(PRINC  NET  WIND) 

(PRINTC  *  *  -  Investment  rate  factor  “  WIND) 

(PRINC  RATE  WIND) 

(PRINTC  *  f  -  Total  living  expenses  needed  (d  x  ♦)  *  WIND) 

: PRINC  TCT-LIV  WINO) 

(PRINTC  *  - 

— *  WIND) 

(PRINTC  *  a  -  Total  monetary  needs  (1+2-3 S“  WIND) 
(PRINC  TOT -MON  WIND) 

(PRINTC  *  7  -  Total  investment  assets  m  nand  ’  WIND) 

(PRINC  ASSETS  WINO) 

(PRINTC  *  - 

— *  WIND) 

(PRINTC  *  3  -  _ife  insurance  needs  'a  -  D  S"  WIND) 

PRINC  MEEDS  WIND • 3 ) 


(DEF  ' INQUIRE- I NS 
' [LAMBDA  <> 

CPROG  O 
AGAIN 

( WINCLR  U6)  ( WINATTR  120  W4) 

(PRINTC  *  Enter  lint  number  o-f  item  you  wish  to  question,*  W6> 

(PRINTC  '  else  enter  X*  u«> 

(CLRBFI ) (SETQ  X  (TYI  U4> > 

CC0N0 

(  (OR  (EQUAL  X  *X* ) (EQUAL  X  ‘x^mSETQ  STATUS  'EXIT)) 

((EQUAL  X  *  1  *  > (HOU  (FIND  '(YOUR  FUNERAL  EXPENSES  ARE  ESTIMATED  TO  BE" 

>))) 

((EQUAL  X  *2* > (HOU  '(YOU  MUST  INCLUDE  NON-MORTGAGE  DEBT  IN  TOTAL  MONE¬ 
TARY  NEEDS))) 

((EQUAL  X  *3*) (HOW  '(YOU  MUST  INCLUDE  EMERGENCY  FUND  REQUIREMENT  IN  T- 
OTAL  MONETARY  NEEDS) >) 

((EQUAL  X  "4* > (HOW  (FIND  '(THERE  IS  *  COLLEGE  FUND) > > ) 

((EQUAL  X  *5*) (HOU  '(YOU  MUST  INCLUDE  TOTAL  LIVING  EXPENSES  IN  T~ 

OTAL  MONETARY  NEEDS) >> 

((OR  (EQUAL  X  *A* ) (EQUAL  X  *«•)> 

(HOW  ' (AVERAGE  ANMUAL  LIVING  EXPENSES  ARE  CONSIDERED))) 

((OR  (EQUAL  X  *B*> (EQUAL  X  *b*)) 

-  (HOU  '(SPOUSES  AVERAGE  ANNUAL  INCOME  IS  SUBTRACTED  FROM  ANNUAL 

LIVING  EXPENSES))) 

((OR  (EQUAL  X  *C*> (EQUAL  X  *e*>) 

(HOU  (FIND  '(SOCIAL  SECURITY  BENEFITS  WILL  BE  >  PER  YEAR)))) 

((OR  (EQUAL  X  *D* ) ( EQUAL  X  *d«>> 

(HOU  '(NET  ATM  UAL  LIVING  EXPENSES  ARE  CONSIDERED))) 

((OR  (EQUAL  X  *E* ) (EQUAL  X  *e*>> 

(HOU  (FIND  '(INVESTMENT  RATE  FACTOR  IS  >)))> 

((OR  (EQUAL  X  *F*)( EQUAL  X  "f*)> 

(HOU  '(YOU  MUST  INCLUDE  TOTAL  LIVING  EXPENSES  IN  TOTAL  MONETARY- 

NEEDS)  )  ) 

((EQUAL  X  *4* ) (HOU  '(YOU  MUST  CONSIDER  TOTAL  MONETARY  NEEDS))) 

((EQUAL  X  *7*) (HOU  '(SUBTRACT  INVESTMENT  ASSETS  IN  HAND  FROM  TOTAL  MO¬ 
NETARY  NEEDS))) 

((EQUAL  X  *8* ) (HOU  '(LIFE  INSURANCE  NEEDS  SHOULD  BE  ESTIMATED))) 

(T  (BEEP) (GO  AGAIN)) >11) 


i**J.*‘  .■>  •, 


kw;7 
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FILES  DO-IW.LSP 


COEF  'DO- INVESTMENTS 
' C LAMBDA  () 

C  PROS  O 

<SETQ  MODE  'C0NSTR-M0DE) 

(LOAD  “BsOUERY .  LSP* > 

(STOP-WAIT) 

(  IW-INTERVI EW) 

(WAIT) 

(DEF  ' I  l>W- INTERVIEW  NIL) 

<SETQ  TEMPLIST  NIL) 

(LOAD  *BiC-RULE.LSP* ) 

<  CONSTRA I NT-RULEL I ST ) 

(DEF  'CONTRAINT-RULELIST  NIL) 

(SET Q  CLIENT-CONSTRAINTS  TEMPLIST) 

(STOP-WAIT) 

(SETS  WIN  U1XSH0U-C0NSTR) 

(CHOICE) 

(WAIT) 

(SETQ  TEMPLIST  NIL) 

(SETQ  CLIENT-CONSTRAINTS  NIL) 

(LOAD  ’BiCONV.LSP" ) 

<  COWERT-CONSTRA I  NT  S  ) 

(DEF  'CONVERT-CONSTRAINTS  NIL) 

(SETQ  MODE  ' INV-MODE) 

(LOAD  "Bs I -PAR. LSP*) 

( INV-PARW1) 

(DEF  'INV-PARAM  NIL) 

(SETQ  TEMPLIST  NIL) 

(LOAD  *Bs INJE5T .LSP" ) 

(LOAD  ‘BiRANK.LSP") 

(RANK-IW) 

(SORT-IMJS) 

(SETQ  INVESTMENT-RULES  NIL) 

(DEF  ' INVESTMENT-RULEH  ST  NIL) 

(DEF  'RANK— INV  NIL) (DEF  'EVAL-INV  NIL) 

(DEF  'SORT  NILXOEF  'SORT-INVS  NIL) 

(STOP-WAIT) 

( SETQ  WIN  W1XSHCW-IW*)) 

(CHOICE)  ID 

(DEF  ' SHCW-CONSTR 
(LAMBDA  O 

(UINCLR  WIN) 

FOR  YOUs*  WINPRINTC  'THE  FOLLOWING  INVESTMENT  CONSTRAINTS  HAVE  SEEN  ESTABLISHED 
( PRINTC  ■  *  WIN)  (SETQ  NUMB  IXSETQ  NO-REA  0) 

(MAPC  'PR-SCREEN  CL I ENT-CONSTRAINTS) ) ) 

(DEF  ' INQUIRE-CONSTR 
' I LAMBDA  (> 
tPROG  O 
AGAIN 

(WINCLP  W4XUINATTR  120  WA) 

(PRINTC  *  Ent»r>  1  i  n*  numts«r  o+  i  t*m  you  wish  to  qutstion.*  W6> 

(PRINTC  "  * 1 **  *nt*r  X*  W6) 

(CLR8FI > { SETQ  X  < TYI  W4)> 

(CCND 


(<GR  (EQUAL  X  *X*XEQUAL  X  *x*))(3ETQ  STATUS  'EXIT)) 

<  <  GT  (  CHRVAL  XX  +  48  NO-REA)  X  BEEP  X  GO  AGAIN)) 

((EQUAL  X  *1*>(H0U  ONE)) 

((EQUAL  X  *2*  >  (HOW  TWO)) 

((EQUAL  X  *3“ ) (HOW  THR)) 

((EQUAL  X  * 4* ) (HOU  FOU>) 

((EQUAL  X  *3*  > (HOU  FIV)  > 

((EQUAL  X  *6* ) ( HOU  SIX)) 
v ( EQUAL  X  "7") (HOU  SEV)  > 

((EQUAL  X  *8*  >  <  HOW  EIG>) 

((EQUAL  X  *9* ) (HOU  NIN>> 

(T  (SEEP) (GO  AGAIN)))]]) 

v  DEF  'SHOW- 1 MU 
'(LAMBDA  () 

(U1NCLR  WIN) 

(PRINTC  *  You  have  **  UJNXPRINC  CAPITAL  WIN) 

(PR1NC  *  available  for  investment.  Based  upon*  UIN) 

(PRINTC  *  your  situation,  temperament,  and  goals,  FINPLAN  recommen¬ 
ds*  UIN) 

(PRINTC  *  that  your  portfolio  includes  investments  allocated  to  th- 

e*  UIN)  . 

(PRINTC  *  investment  classes  listed  below.*  UIN) 

(PRINTC  *  *  UIN) 

(PRINTC  *  l  wINXPRINC  N3-INU  UIN) 

(COND 

('EQUAL  NG-INU  1)(°RINC  *  investment  class  is  recommended.*  UIN)) 
<T  (PRINC  *  investment  classes  are  recommended.*  UIN>>> 

(PRINTC  *  *  UIN) (PRINTC  *  2  -  **  UIN) (PRINC  UNIT  UIN) 

(PRINC  *  is  recommended  for  investment  in  each  class.*  UIN) 

(PRINTC  "  *  WIN) (PRINTC  *  3  -  Class  1:  **  UIN) 

(PRINC  UNIT  UIN)  (PRINC  *  in  *  WINXPR-TBCT  FIRST) 

(COND  (CGE  NO-INV  2) 

(PRINTC  *  *  UIN) ( PRINTC  *  4  -  Class  2:  »*  UIN) 

'PRINC  UNIT  UIN)  (PRINC  *  >n  *  UINXPR-TEXT  SECOND)  ;  , 

(COND  ((GE  NO— INU  3) 

(PRINTC  *  *  UIN) ( PRINTC  *  3  -  Class  3s  s*  UIN) 

(PRINC  UNIT  UIN)  ( PRINC  *  in  *  UINXPR-TEXT  THIRD))) 

(COND  ((EQUAL  NO-IW  4) 

(PRINTC  *  *  WIN) ( PRINTC  *  a  -  Class  4:  **  UIN) 

(PRINC  UNIT  UIN)  (PRINC  *  in  *  UINXPR-TEXT  FOURTH))) 

(COND  ((GT  REMAIN  I) 

(PRINTC  *  *  UIN) ' PRINTC  *  Place  the  remaining  **  WIN) 

(PRINC  REMAIN  WINXPRINC  *  in  your  savings."  WIN))) 

(CEF  INOUIRE-nW 
' I  LAMBDA  < ) 

I  PROG  () 

AGAIN 

■  UIMCLR  WAXWINATTR  1 20  US) 

•PRINTC  *  Enter  line  number  of  item  you  wsh  to  Question,"  u ij 
PRINTC  “  else  enter  X’  US) 

<  CLR6FI ) ( 3E70  X  (TYI  We>) 

.  CCND 

'(OR  v  EQUAL  >  "'<*)•,  EGUAL  <  "<*))'SETG  STATUS  '  EXIT)  ) 

(  (  GT  (  CHRVAL  X )  -  *  30  NO- 1 NU  >  ) (  EEEC >  '  GO  AGa IN;  i 
'  (  EQUAL  X  “  i  *  X. HOU  (FIND  '  INVESTMENT  ♦  .  .  ,  , 

((EQUAL  .<  “2*  X  HOW  < c  !ND  '  ♦  OF  ORIGINAL  CAPITAL  *<  1  ;  ' 

(EQUAL  ■<  ’  3 *  )  (  HOU  FIRST)  « 

‘'SQUal  <  ‘4") (HOW  SECOND)) 

EQUAL  /  *3*Xr*CU  THIRD)  > 

EQUAL  <  "  o’  >  (  hcu  FOURTH; , 

“  EEEP  1  ( GQ  aGm IN  i >  1 1 1 ) 


FILE i  INS.LSP 


<DEF  ' INS-INTERVIEW 
' t LAMBDA  O 

IPROG  O 

(ADD  '  (  YOU  k**(T  TO  ESTIMATE  LIFE  INSURANCE  NEEDS)) 

(WINCLR  Wl) 

<  PRINTC 

*In  order  to  estimate  your  1  i -f •  insurance  needs,  picas*  »ni* 

wer*  Wl ) 

<PRINTC  "th*  following  questions.*  Wt) 

(PRINTC  *  *  Wl> 

DEPEND 

(PRINTC  *How  many  dependents  (or  others)  do  you  wish  to  sup~ 
port  in  the*  Wt) 

(PRINTC  ‘event  of  your  death?*  Wl ) 

(PRINTC  *  *  Wl) (PRINTC  *  *  Wt) 

(SETQ  X  (READ  Wt ) ) 

(COND  KNOT  (NUMBERP  X)  (BEEP)  ( 30  DEPEND)  I 

t ( EQUAL  X  0) (SETQ  MODE  ' INJ-MODE) (PRINTC  *  *  Ut ) 

(PRINTC  *You  have  no  need  for  life  insurance.*  Wt) 

(WINATTR  120  W3) 

(PRINTC  *  Strike  any  key  to  continue  .  .  .*  W3) 

( CLRBFI )  (TY1  U3XWINCLRX  RETURN  NIDI 
KPLUSP  X)  NIL1 
IT  < BEEP X GO  DEPEND) 1) 

(WINCLR  Wt) 

GROSS 

(PRINTC  ‘What  is  th*  amount  of  your  gross  estate'  Ul > 

(PRINTC  *(net  worth  and  anticipated  insurance  proceeds)?* 

Wt ) 

(ANS  '1  ’Under  *20,000*  Wt > 

CANS  '2  ‘Between  *20,000  and  *200,000’  Wl > 

(>*JS  '3  ’More  than  *200,000”  W1XPRINTC  *  *  Wl)  (PRINTC  *  *  Wt) 

(SETQ  X 

(READ  Wl)) 

(CONO 

KNOT  (NUM3ERP  X)) 

(BEEP) 

(GO  GROSS)! 

I ( EQUAL  X  1) 

(SETP  FUNERAL  2200) 

(ADD  '(YOUR  GROSS  ESTATE  IS  UNDER  *20000))) 

K EQUAL  X  2) 

(SETQ  FUNERAL  3000) 

(ADD  '(YOUR  GROSS  ESTATE  IS  BETWEEN  *20000  AND 
*200000) ) 1 
C( EQUAL  X  3) 

(SETQ  FUNERAL  10000) 

(ADD  '(YOUR  GROSS  ESTATE  IS  MORE  TriAN  *200000))) 
t~ 

(BEEP) 

(GO  GROSS)!) 

(WINCLR  Wt) 

CONSUMER 

(PRINTC 

"What  is  /our  approximate  outstanding  consumer  debt  •.  al  •  non-mart  9" 

age '  Wl : 

(PRINTC  *deet  such  as  car  loan,  cedi  t  card,  or  ether  similar  a* o'* 


(PRINTC  *  *  U1XPRINTC  *  *"  Wt  > 

<  SETQ  X 

<  READ  Ul>) 

<  COND 

KNOT  (NUMBER?  X)) 

(BEEP) 

(GO  CONSUMER)] 

C(GT  X  30000) 

(PRINTC  "Too  much  -  try  again"  Ul ) 

(GO  CONSUMER)! 

CT 

(SETQ  C-DEBT  X)]) 

(UINCLR  141) 

EMERGENCY 

(PRINTC 

"Ent*r  a  su*fici*nt  sum  ■for  what  you  ouQht  to  k**p  as  an  *m*rg*ncy"’ 

"  Ul) 

(PRINTC  "r«s*rv*.  (If  you  don't  know,  *stimat»  two  month's  tak*-h~ 
om*  pay.)*  141) 

(PRINTC  "  "  141 )( PRINTC  "  *"  Ul  > 

(SETQ  X 

(READ  141  >) 

(COND 

KNOT  (NUMBERP  X)) 

(BEEP) 

.GO  EMERGENCY) ] 

KGT  X  30000) 

(PRINTC  "I  don't  b* I i *o*  it  -  try  again*  141 ) 

(GO  EMERGENCY)] 

CT 

(SETQ  EMERG  X>1) 

(UINCLR  Ul) 

CHILDREN 

(PRINTC  "Do  you  hao*  any  children?"  Ul > 

(PRINTC  "  *  Ul) (PRINTC  *  *  Ul ) 

(SETQ  X  (READ  Ul )  ) 

(COND 

KNUMBERP  X) ( 3EEP) ( GO  CHILDREN)] 

K OR  (EQUAL  (CHRVAL  X)  8?) (EQUAL  (CHRVAL  X)  121); 

(PROG  () 

COLLEGE 

(PRINTC 

"Do  you  intsnd  to  prouida  a  col  lag*  fund  for  your  children7'” 

*  Ul) 

(PRINTC  "  *  Ul)( PRINTC  "  *  Ul ) 

(SETQ  X 

(READ  Ul)) 

( CCND 

C (NUMBERP  XX  SEEP)  (30  COLLEGE)] 

K  OR  (EQUAL  (CHRVAL  X)  89)  ( EQUAL  (  CHRVAl  X)  12D) 

(PROG  () 

(ADD  '(YOU  INTEND  TO  PROVIDE  A  COLLEGE  FUND)) 

SCHOOL 

(PRINTC  "What  kind  of  school  do  you  hav*  in  mi  no'5’  41/ 
(ANS  '1  "Priwat*"  Ul) 

(ANS  '2  "Public*  Ul '(PRINTC  "  *  Ul) 'PRINTC  *  "  'JI  ) 

(SETQ  X 

(READ  Ul ) ) 
vCCND 

KNOT  (NUMBERP  X)  ) 

>. BEEP ) 

'GO  school.-: 
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C  C EQUAL  X  IX  SETQ  FEE  36000 > 

< ADO  ' < YOU  HAVE  A  PRIVATE  COLLEGE  IN  MIND))] 

C  (  EQUAL  X  2XSETQ  FEE  20000) 

(ADD  ' (YOU  HAVE  A  PUBLIC  COLLEGE  IN  MIND) > I 
IT 

(BEEP) 

(GO  SCHOOL)!) 

CHILD-COL 

(PRINTC  "How  many  children?*  W1XPRINTC  *  •  Ul ) 

(PRINTC  ■  *  U1XSETQ  NO-COL  (READ  Ul)> 

(COND 

KNOT  (NLMBERP  NO-COL) X BEEP) ( GO  CHILD-COL)] 

KGT  NO-COL  UX  BEEP)  (PRINTC  *  I  don't  believe  it.*  U1  > 
(GO  CHILD-CODI) 

(SETQ  C-FUND  (*  FEE  NO-COL)))] 

KOR  (EQUAL  (CHRVAL  X)  78)  (EQUAL  (CHRVAL  X)  110))  (SETQ  C-FiJND  0) 
(AOD  '(YOU  DO  NOT  INTEND  OR  NEED  TO  PROVIDE  A  COLLEGE  FUND))] 

CT 

(BEEP) 

(GO  COLLEGE)]))] 

KOR  (EQUAL  (CHRVAL  X)  78) (EQUAL  (CHRVAL  X)  110)) 

(SETQ  C-FUND  OXADD  '(YOU  DO  NOT  INTEND  OR  NEED  TO  P~ 

90*7 IDE  A  COLLEGE  FUND))] 

CT  (BEEP) (GO  CHILDREN)]) 

(UINCLR  Ul) 

LIVING-EXP 

(PRINTC 

"Estimate  the  lutrtgt  annual  living  expenses  required  by  yo¬ 
ur  survivors."  Wt ) 

(PRINTC 

"(Start  with  your  current  spending  habits,  allow  a  reductio- 
n  in  some"  Ml ) 

(PRINTC 

*  living  expenses,  anticipate  possible  new  child-care  costs.)"  Ml) 
(PRINTC  "  *  Ul ) (PRINTC  "  *"  Ul  > 

(SETQ  X 

(READ  UD) 

(CONO 

C (NOT  (NUMBERP  X) ) 

(BEEP) 

(GO  LIVING-EXP)] 

KLT  X  13000) 

(PRINTC  "Too  low  -  try  again’  W1 ) 

(GO  LIVING-EXP)] 

CT 

(SETQ  LIVING  X)]) 

(UINCLR  Ul) 

SPS 

(PRINTC  "Do  you  have  a  spouse?"  Ul ) 

(PRINTC  ’  "  Ul ) <  PRINTC  "  "  Ul > 

(SETQ  X  (READ  Ul); 

(COND 

C  (NLMBERP  XXBEEPXGO  SPS)] 

KOR  (EQUAL  (CHRVAL  />  3?X  EQUAL  >.  CHRVAL  X)  121))  NIL] 

KOR  (EQUAL  (CHRVAL  X)  7SX EQUAL  (CHRVAL  X)  110)) 

(SETQ  SPOUSE  0 ) (UINCLR  Ul X  GO  MINOR)] 

CT  ( BEEP) ( GO  SPS) 3 ) 

SPO'JSE-WORK 

(PRINTC  "Does  your  spouse  currentlv  work  4 or  p» y?"  Ul > 

(PRINTC  "  "  U1X  PRINTC  "  "  Ul  ) 

(SETQ  X 

(READ  Ul i ) 


(  CGND 

t  (NUMBERP  XX  BEEP) <80  SPOUSE-WORK)] 

C  (OR  (EQUAL  (CHRWAL  X)  89) (EQUAL  < CHRUAL  X)  121>XG0  SPOUSE-PAY)] 

C  <  OR  (EQUAL  (CHRYAL  X)  78 X EQUAL  (CHRYAL  X)  110))  (SO  SPOUSE-INC) ) 
IT  (BEEP) (GO  SPOUSE -WORK) 1 ) 

SPOUSE-PAY 

(PRINTC  'Estimate  your  spouse's  average  aftei — tax  salary*  Ul ) 
(PR INTO  *  *  U1 X PRINTC  *  S'  Ul) 

(SETQ  X 

(READ  Ul)) 

(CGND 

C (NOT  (NUMBERP  X)) 

(BEEP) 

(GO  SPOUSE-PAY)] 

COT  X  100000  X  BEEP)  ( PRINTC  *1  don't  believe  it.'  Ul) 

(GO  SPOUSE-PAY) ] 

CT 

(SETQ  SPOUSE  XXUINCLR  U1XG0  MINOR)  ]  > 

SPOUSE-INC 

(PRINTC 

'Estimate  your  spouse's  average  after-tax  salary  oer  - 
year  if  she  went'  Ul ) 

(PRINTC  ‘back  to  work  today.*  Ul) 

(PRINTC  '  '  Ul) (PRINTC  '  *'  Ul ) 

(SETQ  X 

(READ  Ul)) 

(COND 

C (NOT  (NUMBERP  X>> 

(8EEP) 

(GO  SPOUSE-INC)) 

C  (GT  X  1 00000  XBEEPX  PRINTC  'I  don't  believe  it.'  Ul  > 

(GO  SPOUSE-INC)) 

CT 

(SETQ  SPOUSE  X))) 

(UINCLR  Ul) 

MINOR 

(PRINTC  'How  many  minor  children  do  you  have?'  Ul ) 

(PRINTC  '  *  Ul) (PRINTC  *  '  Ul) 

(SETQ  X 

(READ  Ul)) 

(COND 

C (NOT  (NUMBERP  X>> 

(BEE?) 

(GO  MINOR) ) 

C  <  GT  X  1) 

(SETQ  SOC-SEC  3000) 

(ADD  '(YOU  HAVE  TUO  OR  MORE  MINOR  CHILDREN))) 

C ( GT  X  0) 

(SETQ  SOC-SEC  4000) 

(ADO  '(YOU  HAVE  ONE  MINOR  CHILD))) 

Z< EQUAL  X  0) 

( SETQ  SOC-SEC  3000) 

(.ADO  ''YOU  hMYE  NO  MINOR  CHILDREN))) 

CT 

(BEEP) 

(GO  MINOR) ) ) 

.UINCLR  Ul > 

“CRTFOLI 0 
(PRINTC 

’How  do  you  exoect  /our  soovse  (or  other  primary  benef  i  c !  ar  >*■  > "  l.'i) 
:ocINTC  ‘to  invest  the  insurance  proceeds  upon  >-our  death’’  Ul ) 

(ANS  '1  ‘In  a  conservative  manner  bank  accounts  and  bones" 

:  ’  Lt> 


<ANS  '2  "In  a  more  aggressive  nnnn»p  (stocks  and  real  esta~ 

•>'  Ul) 

<  PRINTC  *  "  W1XPRINTC  *  *  W1  ) 

(SETQ  X 

(READ  (41)  > 

(CONO 

KNOT  (NUMBERP  X)) 

(BEEP) 

(GO  PORTFOLIO) 3 
K EQUAL  X  1) 

(3ETQ  PORT 

‘  CONSERVAT I VE ) 

(ADO  '  ( INSURANCE  PROCEEDS  UILL  BE  INVESTED  IN  A 
CONSERVATIVE  PORTFOLIO))] 

C ( EQUAL  X  2) 

(3ETQ  PORT 

"AGGRESSIVE) 

(ADD  ' ( INSURANCE  PROCEEDS  UILL  BE  IhWESTED  IN  AN 
AGGRESSIVE  PORTFOLIO))) 

IT 

(8EEP) 

(GO  PORTFOLIO)!) 

(UINCLR  Ul) 

GET -SPOUSE-ACE 

(PRINTC  "What  is  the  current  age  of  your  spouse  (or  other  primary 
beneficiary)?*  Ul ) 

(PRINTC  *  *  Ul) (PRINTC  "  *  Ul  ) 

( SETQ  X 

(REAO  Ul)) 

(CONO 

KNOT  (NUMBERP  X)) 

(BEEP) 

(GO  GET-SPOUSE-AGE) 3 

KST  X  1 00 )(9EEP)( PRINTC  "TRY  AGAIN"  U1XGO  3ET-SP0USE-A6S) ] 
CT 

(SETQ  SPOUSE-AGE  X) 

(SETQ  NINETY 

(-  90  X) ) I ) 

(COND 

KLT  NINETY  28) 

(SETG  RATS  20) 

(ACO  '(YOUR  SPOUSE  UILL  SE  90  IN  ABOUT  23  YEARS))] 

KLT  NINETY  S3) 

(SETQ  RATE  22) 

(ADD  '(YOUR  SPOUSE  UILL  EE  90  IN  ABOUT  30  YEARS))] 

KLT  NINETY  38) 

(SETQ  RATE  23) 

( AOD  '(YOUR  SPOUSE  WILL  BE  90  IN  ABOIT  33  YEARS)  >  J 
KLT  NINETY  43) 

( SETQ  RATE  2?) 

'.ADD  '  ( YCUR  SPOUSE  WILL  SE  90  IN  ABOUT  40  YEARS)'] 

KLT  NINETY  43) 
v  SETQ  RATE  30 

(.AOD  '(YOUR  SPOUSE  UILL  SE  90  IN  ABOUT  43  YEARS))] 

KLT  NINETY  33) 

(SETQ  PATE  31) 

(AOD  (YOUR  SPOUSE  WILL  BE  90  IN  a9CUT  30  YEARS)): 

KLT  NINETY  33- 
SETQ  RATE  33) 

(ADD  '((OUR  SPOUSE  UILL  SE  90  IN  ABOUT  33  (EARS'  >] 

fc  I 

sETQ 


(ADD  '  (  Y OUR  SPOUSE  WILL  8E  90  IN  ABOUT  dO  YEARS  OR  MORE)) 
I) 


(  CCNO 

£( EQUAL  PORT 

'AGGRESSIVE) 

(CONO 

C  <  LT  NINETY  28) 

<SETQ  RATE  Id)} 

E  (LT  NINETY  33) 

<SETQ  RATE  17)1 
t  <LT  NINETY  38) 

(SETQ  RATE  19)1 
£  <LT  NINETY  43) 

(SETQ  RATE  20 >3 
£<LT  NINETY  48) 

(SETQ  RATE  21)3 
£ (LT  NINETY  33) 

(SETQ  RATE  21)3 
ULT  NINETY  38) 

(SETQ  RATE  22)3 
£T 

(SETQ  RATE  23)3)3 
t( EQUAL  PORT 

'CONSERVATIVE) 

IT* 

(PRINTC  ‘ERROR  -  NO  RATE* ) 3 > 

(  W I NCLR  Wl) 

ASSETS-L 

(PRINTC  ’What  is  the  total  val ue  of  investment  assets  in  hand?"  Ul> 
(PRINTC  •( Include  all  assets  that  are  invested  cr  may  become  avail¬ 
able  -for"  Wl) 

(PRINTC  ‘investment,  ie.  checking,  savings,  earned  pension  benefit- 

s , "  Ul> 

( PRINTC  ‘college  •fund  you've  already  started,  etc.)’  Wl ) 

(PRINTC  ‘  *  Wl)( PRINTC  ‘  *‘  Wl ) 

(SETQ  ASSETS 
( REAO  Wl)> 

(COND 

KNOT  (NUMBERP  ASSETS) ) (BEEP) ( 30  ASSETS-L) 3 
£ (GT  ASSETS  1000000) (BEEP) 

“  Ul )  (PRINTC  ‘You  don't  need  this  program.  Go  hire  an  accountant. 

(GO  ASSETS-L) 3) 

(SETQ  LUMP 

<♦  FUNERAL  C-OEBT)) 

(SETQ  LUMP 

<+  LUMP  EMERG)) 

(SETQ  LUMP 

( ♦  LUMP  C-FUNO ) ) 

( SETQ  NET 

<-  LIVING  SPOUSE)) 

(SETQ  NET 

(-  NET  SOC-SEC) > 

(SETQ  TOT-LIV 

(■*  NET  RATE)) 

(SETQ  TOT -MON 

(*  LUMP  TOT-LIV)) 

(SETQ  NEEDS 

<-  TOT -MON  ASSETS)) 33) 


FILE!  INTRO. L8P 


<DEF  ' INTRO 
'tuAMBOA  <) 

CPROQ  (A  8  C  D  E  F> 

(STOP-WAIT) 

(SET <3  A  (WINDOW  '(4  9)  '(7  2)» 
(SETQ  B  (WINDOW  '(4  11)  '(1  4))) 
(SETQ  C  (WINDOW  '(7  22)  '<1  2>>> 
(SETQ  D  (WINDOW  '<7  29)  '(4  2))) 


(SETQ 

(SETQ 

(SETQ 


(WINDOW  '(9  39)  '  (  3  2))) 


'(14  70 ) > ) 


(SETQ  F  (WINDOW  '(1  3)  '(14  70>>) 

(WINATTR  120  F)  (WINCLR  F) (WINCURS  '(2  30)  F> 
(PRINC  “WELCOME  TO*  F> (WINCLR  A) (WINCLR  B> 
(WINPOS  '(9  11)  8) (WINCLR  B) 

(WINPOS  '<6  17)  A) (WINCLR  A) 

(WINPOS  '(4  21)  A) (WINCLR  A) (WINCLR  C) 
(WINPOS  '(8  23)  C) (WINCLR  C) 

(WINPOS  '(9  24)  C) (WINCLR  C) 

(WINPOS  '(10  23)  C) (WINCLR  C) 

(WINPOS  '(11  24)  C) (WINCLR  C) 

(WINPOS  '(4  27)  A) (WINCLR  A) 

(WINPOS  '(4  31)  A) (WINCLR  A) 

(WINPOS  '(4  33)  B) (WINCLR  B) 


(WINPOS 

(WINPOS 


(WINPOS  '(9  24)  C) (WINCLR  C) 

(WINPOS  '(10  23)  C) (WINCLR  C) 
(WINPOS  '(11  24)  C) (WINCLR  C) 
(WINPOS  '(4  27)  A) (WINCLR  A) 

(WINPOS  '(4  31)  A) (WINCLR  A) 

(WINPOS  '(4  33)  B) (WINCLR  B) 

(WINPOS  '(9  33)  B) (WINCLR  B) 

(WINPOS  '(4  34)  0) (WINCLR  D) 

(WINPOS  '(4  40)  A) (WINCLR  A) 

(WINPOS  '(12  42)  B) (WINCLR  B) 
(WINPOS  '(4  31)  B) (WINCLR  B) 

(WINPOS  '(7  30)  E) (WINCLR  E) 

(WINPOS  '(7  34)  E) (WINCLR  E) 

(WINPOS  '(9  49)  B> (WINCLR  B) (WINPOS 
(WINPOS  '(9  33)  C) (WINCLR  C) 

(WINPOS  '<10  48)  E) (WINCLR  E> 
(WINPOS  '(10  34)  E) (WINCLR  S) 


(9  53)  C) (WINCLR  C) 


(WINPOS  '(9  33)  C) (WINCLR  C) 

(WINPOS  '<10  48)  E) (WINCLR  E> 

(WINPOS  '(10  34)  E) (WINCLR  S) 

(WINPOS  '(4  40)  A) (WINCLR  A) 

(WINPOS  '<7  41)  C) (WINCLR  C) 

(WINPOS  '(S  42)  C) (WINCLR  C) 

(WINPOS  '($  43)  C) (WINCLR  C) 

(WINPOS  '(10  44)  C) (WINCLR  C> 

(WINPOS  '(11  43)  C) (WINCLR  C> 

(WINPOS  '(4  44)  A) (WINCLR  A) 

(WINCURS  '(14  11)  F) 

(PRINC  ’fit)  EXPEPT  SYSTEM  FOR  PERSONAL  FINANCIAL  PLANNING*  F) 
(WINCURS  '(l?  14)  NIL) (PRINC  “SELECT i  “> 

(3EL  ' 1  "...  to  see  description  of  FINPLAN*  NIL' 

(WINCURS  '(21  25)  NIL) 

(SEL  '2  *.  .  .to  begin  immediate  consultation*  NIL) 

(WINCURS  '(23  25)  NIL) 

AGAIN 

< CLRBFI >  < SETQ  X  (TYI)) 

<  CCND 

((EQUAL  X  "1“) (DESCRIP)) 

( (EQUAL  X  *2" )  NIL) 

( T  (BEEP) (30  AGAIN))) 

WINCLR) 

(WINCURS  '(1  20)  NIL) (PRINC  “CMCCSEi  * ) 

• SEL  'L  ‘LIFE- INSURANCE  (or  Scth>“  ML  (WINCURS  (3  29)  NIL) 
■.SEL  '  I  “INVESTMENT  FOeT=QLIC  NIL)  (WINCURS  '  5  2?'  NIL) 
CACOSE 

<  CwPBFI )  (  SET 3  X  (TYI  -.  > 
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<C0N0 

( ( OR  < EQUAL  X  *L*) (EQUAL  X  *1*))  NIL) 

< (OR  (EQUAL  X  *  I  *  > ( EQUAL  X  *i*)XSETQ  MODE  ' IhW-MODE) ) 

(T  (BEEP)  (60  CHOOSE))) 

(UINCLR) (WAIT) 

(OEF  'OESCRIP  NIL) (OEF  'SEL  NIL)(OEF  ' CONT  NIL)J]> 

(DEF  'SEL 

' C  LAMBDA  (NO  PHRASE  UINO) 

I PROG  (POS) 

(SETQ  POS  (UINCURS  NIL  UIND)  XUINPOS  POS  U7> 

(PRINC  NO  W7> 

(UINCURS  (LIST  (CAR  POS)(ADDi  ( CADR  POS) > )  UINO) 

(PRINC  *  *  UINO) (PRINC  PHRASE  UINO) 13) 

(OEF  'CONT 
'[LAMBDA  () 

(WINATTR  120  U3) 

( PRINTC  *  Strike  any  key  to  continue  ..."  U3> 

(CLRBFI ) (TYI  U3) (UINCLR) I) 

(DEF  'OESCRIP 
'[LAMBDA  () 

[PROG  (POS) 

(UINCLR) (PRINTC  *  *  XSETQ  POS  (UINCURS  NIL  NIL))(UINPOS  POS  W7> (UINCLR  U7) 
(UINCURS  (LIST  (CAR  FOSXADOl  (CADR  POS)))  NIL) 

(PRINC  *  FINPLAN  is  a  prototype  expert  system  that  provides  advice  and*) 

(PRINTC  ‘consultation  in  developing  a  personal  •financial  plan  suited  to  /our1) 
(PRINTC  ‘needs.  Sasic  information  pertaining  to  your  financial  situation,*) 
(PRINTC  ‘temperament,  and  goals  is  requested  from  you  through  interactive") 
(PRINTC  "interviews.  FINPLAN  uses  this  information  to  deduce,  after  a  series*) 
(PRINTC  ‘of  inferences,  recommendations  to  be  included  in  your  financial  plan,*) 
(PRINTC  "  " ) (PRINTC  *  *)(SETQ  POS  (UINCURS  NIL  NIL))(UINPOS  POS  U7> (UINCLR  U7> 
(UINCURS  (LIST  (CAR  POSXADDl  (CAOR  POS)  > )  NIL) 

(PRINC  *  An  attractive  feature  incorporated  in  FINPLAN  is  the  ability  to  ask*) 
(PRINTC  ‘for  an  explanation  of  recommendations.  All  lines  of  reasoning  behind*) 
(PRINTC  "a  recommendation  can  be  displayed  upon  request  for  examination  and*) 
(PRINTC  "analysis  by  you.*) 

(PRINTC  *  " )  (PRINTC  *  "XSETQ  POS  (UINCURS  NIL  NIL)  XUINPOS  ?0S  U7>  (UINCLR  U7> 
(UINCURS  (LIST  (CAR  POSXADDl  (CADR  POS)))  NIL) 

(PRINC  *  Because  -INPLAN  is  only  a  prototype  system,  it  does  not  address  all") 
(PRINTC  "relevant  tasks  of  financial  planning.  Currently,  two  major  tasks  are") 
(PRINTC  "includedJ  recommending  an  appropriate  amount  of  LIFE-INSURANCE  and”) 
(PRINTC  “recommending  an  INVESTMENT  PORTFOLIO.  These  two  tasks  are  sufficient") 
(PRINTC  ‘because  the  same  methodologies  developed  to  handle  tnem  could  also  *  > 
(PRINTC  *be  used  to  handle  any  other  task  that  might  be  included  'n  a  more"! 
(PRINTC  "comorehensi ve  system.  Some  additional  tasks  might  include  an  *> 

'CONT) 

'PRINTC  "analysis  of  end  recommendations  for  ret  worth,  budgeting,  and  * ) 

(PRINTC  "possibly  other  forms  of  insurance.  Although  oortfolio  recommendatio¬ 
ns*  > 

(5rimtc  "are  reasonably  vaiid  in  the  prototype,  the  portfolio  know'edge  bases") 
(PRINTC  "also  should  be  expanded  and  improved  in  a  mo-e  comprehensive  system. *  • 
(PRINTC  "  "X  PRINTC  "  "XSETQ  POS  (UINCURS  NIL  NIL))  (UINPOS  POS  U7;  (UINCLR  W7> 
(UINCURS  (LIST  (CAR  POSXADDl  (CADR  P03>)>  NIL) 

(PRINC  *  FINPLAN  is  simple  and  easy  to  use.  rou  can  be  a  novice  or  expert  in"' 
(3R1NTC  "personal  computing  or  financial  planning  and  still  ooerate  the  system") 
(PRINTC  "easily  and  effectively.  A! '  instructions  are  se 1 t-exo i an ator y .  A  "> 

< °PINTC  "few  points,  however,  should  be  noted s "X PRINTC  "  ") 

(RRINTC  "  a  -  A1 I  interview  questions  requi-e  you  to  cress  the  RETURN  *) 

(PRINTC  *  key  after  typing  yeur  answer.  Jnt . '  -ou  press  the  RETURN*1 

(PRINTC  *  key  you  may  change  your  answer  by  using  the  SACKSFaCS  key.'’. 

-“RINTC  •  •> 


< PRINTC  *  b  -  FINPLPN  occasionally  appears  to  stop  working.  It  will*) 
(PRINTC  *  momentarily  suspend  execution  while  performing  a  garbage*) 

(PRINTC  *  collection,  which  is  a  norma)  function  inherent  to  IQLISP.*) 

(PRINTC  *  In  a  few  moments  the  blinking  cursor  will  appear  again  *> 

(PRINTC  *  and  you  may  proceed.*) 

(CONT)II) 
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FILEt  INVEST. LSP 


<DEF  ' INVESTMENT -RULEL1 ST 
' C  LAM8DA  () 

(SETQ  INVESTMENT-RULES 
'((RULE  401 

(IF  (OBJECTIVE  OF  RETIREMENT  SECURITY  IS  SATISFIED  .  10) 
<  FINANCIAL  RISK  IS  MODERATE  .  20) 

(LIQUIDITY  IS  MODERATE  .  4) 

(TAX  ADVANTAGE  IS.  MODERATE  .  8> 

(INFLATION  PROTECTION  IS  MODERATE  .  4) 

(EFFORT  REQUIRED  IS  LOU  .  2> 

(SKILL  REQUIRED  IS  NOT  DEMANDING  .  2) > 

(THEN  (BLUE  CHIP  STOCKS  .  0>>> 

(RULE  402 

(IF  (OBJECTIVE  OF  GROWTH  IS  SATISFIED  .  13) 

(FINANCIAL  RISK  IS  MODERATE  .  20) 

(LIQUIDITY  IS  MODERATE  .  4) 

(TAX  ADVANTAGE  IS  MODERATE  .  8) 

(INFLATION  PROTECTION  IS  MODERATE  .  4) 

(EFFORT  REQUIRED  IS  LOU  .  2) 

(SKILL  REQUIRED  IS  NOT  DEMANDING  .  2)) 

(THEN  (ESTABLISHED  GROWTH  STOCKS  .  0>)> 

(RULE  403 

(IF  (OBJECTIVE  OF  INCOME  IS  SATISFIED  .  3) 

( FINANCIAL  RISK  IS  MODERATE  .  20) 

(LIQUIDITY  IS  MODERATE  .  4) 

(TAX  ADVANTAGE  IS  MODERATE  .  8) 

(INFLATION  PROTECTION  IS  LCW  .  9) 

(EFFORT  REQUIRED  IS  MODERATE  .  4) 

(SKILL  REQUIRED  IS  NOT  DEMANDING  .  2)> 

(THEN  (ESTABLISHED  DIVIDEND  STOCKS  .  0))) 

(RULE  404 

(IF  (OBJECTIVE  OF  SPECULATION  IS  SATISFIED  .  20) 
(FIN(*IC!AL  RISK  IS  HIGH  .  30) 

(LIQUIDITY  IS  LOU  .  4) 

(TAX  ADVANTAGE  IS  MODERATE  .  8) 

(INFLATION  PROTECTION  IS  MODERATE  .  4) 

(EFFORT  REQUIRED  IS  MODERATE  .  4) 

(SKILL  REQUIRED  IS  MODERATE  .  4>> 

(THEN  (NEW  ISSUE  STOCKS  .  0))) 

(RULE  403 

(IF  (OBJECTIVE  OF  INCOME  IS  SATISFIED  .  3) 

(FINANCIAL  RISK  IS  LCW  .  10) 

(LIQUIDITY  IS  MODERATE  .  4) 

(TAX  ADVANTAGE  IS  MODERATE  .  S) 

(INFLATION  PROTECTION  IS  LCU  .  9  > 

(EFFORT  REQUIRED  IS  LOW  .  2) 

(SKILL  REQUIRED  IS  NOT  DEMANDING  .  2); 

(THEN  (HIGH  GRADE  CORPORATE  S0ND3  .  Q>>> 

(RULE  40 o 

(IF  (OBJECTIVE  OF  INCOME  IS  SATISFIED  .  3) 

(FINANCIAL  RISK  IS  HIGH  .  30) 

(LIQUIDITY  IS  MODERATE  .  4) 

(TAX  ADVANTAGE  IS  MODERATE  .  S> 

(INFLATION  PROTECTION  IS  LCW  .  =) 

(EFFORT  REQUIRED  53  MODERATE  .  4) 

(SKILL  REQUIRED  IS  MODERATs  ,  4; 

CTHEN  ( LOW  GRADE  CORPORATE  3C-NDS  .  j > : > 


(RULE  <407 

(IF  (OBJECTIVE  OF  INCOME  IS  SATISFIED 
(FINANCIAL  RISK  IS  LOU  .  10) 
(LIQUIDITY  IS  MODERATE  .  4) 

(TAX  ADVANTAGE  IS  MODERATE  .  3> 
(INFLATION  PROTECTION  IS  LOW  .  9) 
(EFFORT  REQUIRED  IS  LOU  .  2) 
(SKILL  REQUIRED  IS  NOT  DEMANDING 
(THEN  (U  S  TREASURY  BONDS  .  0))) 

(RULE  608 

(IF  (OBJECTIVE  OF  INCOME  IS  SATISFIED 
(FINANCIAL  RISK  IS  LOU  .  10) 
(LIQUIDITY  IS  MODERATE  .  4> 

(TAX  ADVANTAGE  IS  HIGH  .  4) 
(INFLATION  PROTECTION  IS  LOU  .  9) 
(EFFORT  REQUIRED  IS  LOU  .  2) 
(SKILL  REQUIRED  IS  NOT  DEMANDING 
(THEN  (HIGH  GRADE  MUNICIPALS  .  0)>> 
(RULE  609 

(IF  (OBJECTIVE  OF  INCOME  IS  SATISFIED 
(FINANCIAL  RISK  IS  HIGH  .  30) 
(LIQUIDITY  IS  MODERATE  .  4) 

(TAX  ADVANTAGE  IS  HIGH  .  4) 
(INFLATION  PROTECTION  IS  LOU  .  9) 
(EFFORT  REQUIRED  IS  MODERATE  .  4) 
(SKILL  REQUIRED  IS  MODERATE  .  4>> 
(THEN  (LOU  GRADE  MUNICIPALS  .  0))) 
(RULE  610 

(IF  (OBJECTIVE  OF  GROWTH  IS  SATISFIED 
(FINANCIAL  RISK  IS  MODERATE  .  20) 
(LIQUIDITY  IS  MODERATE  .  4> 

(TAX' ADVANTAGE  IS  MODERATE  .  3) 
(INFLATION  PROTECTION  IS  MODERATE 
(EFFORT  REQUIRED  IS  LOU  .  2) 
(SKILL  REQUIRED  IS  MOT  DEMANDING 
(THEN  ( GRGUTH-ORI ENTED  MUTUAL  FUNDS  . 
(RULE  6!  I 

(IF  (OBJECTIVE  OF  INCOME  IS  SATISFIED 
( FINANCIAL  RISK  IS  MODERATE  .  20) 
(LIQUIDITY  IS  MODERATE  .  4) 

(TAX  ADVANTAGE  IS  MODERATE  .  3) 
(INFLATION  PROTECTION  IS  LOU  .  9) 
(EFFORT  REQUIRED  IS  LOW  .  2) 
(SKILL  REQUIRED  IS  NOT  DEMANDING 
(THEN  (INCOME-ORIENTED  MUTUAL  FUNDS  . 
(RULE  612 

(IF  (OBJECTIVE  OF  INCOME  IS  SATISFIED 
(FINANCIAL  RISK  IS  LOU  .  1  j) 
(LIQUIDITY  IS  HIGH  .  2) 

(TAX  ADVANTAGE  IS  LCW  .  12) 
(INFLATION  PROTECTION  IS  LOW  .  9) 
(EFFORT  REQUIRED  IS  LCU  .  2) 
(SKILL  REQUIRED  IS  NOT  DEMANDING 
(THEN  (MONEY  MARKET  ACCOUNT  .  0 > ) ) 
(RULE  412 

<IC  (OBJECTIVE  OF  GROWTH  IS  SATISFIED 
(FINANCIAL  RISK  IS  MODERATE  .  20) 
(LIQUIDITY  IS  LOU  .  6> 

(TAX  ADVANTAGE  IS  LOU  .  12) 
(INFLATION  PROTECTION  IS  MODERATE 
(EFFORT  PEOUI RED  IS  HIGH  .  6) 
(SKILL  REQUIRED  IS  MODERATE  .  4>, 

: THEN  (SELL  COVERED  OPTION  CALLS  .  J, 
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( RULE  614 

( IF  (OBJECTIVE  OF  SPECULATION  15  SATISFIED  .  20) 

(FINANCIAL  RISK  IS  HIGH  .  30) 

(LIQUIDITY  IS  LOU  .  4) 

(TAX  ADVANTAGE  IS  LOW  .  12> 

(INFLATION  PROTECTION  IS  LCU  .  9) 

(EFFORT  REQUIRED  IS  HIGH  .  6> 

(SKILL  REQUIRED  IS  MODERATE  .  4>> 

(THEN  (SELL  OPEN  OPTION  CALLS  .  0))) 

(RULE  615 

(IF  (OBJECTIVE  OF  GROWTH  IS  SATISFIED  .  15> 

(FINANCIAL  RISK  IS  HIGH  .  30) 

(LIQUIDITY  IS  LOU  .  6) 

(TAX  ADVANTAGE  IS  MODERATE  .  8) 

(INFLATION  PROTECTION  IS  LOW  .  9) 

(EFFORT  REQUIRED  IS  HIGH  .  6) 

(SKILL  REQUIRED  IS  MODERATE  .  4)) 

(THEN  (BUY  QPTI ONS/UARRANTS  .  Q>>> 

(RULE  616 

(IF  (OBJECTIVE  OF  SPECULATION  IS  SATISFIED  .  20) 

(FINANCIAL  RISK  IS  HIGH  .  30) 

(LIQUIDITY  IS  LOW  .  4) 

(TAX  ADVANTAGE  IS  MODERATE  .  3) 

(INFLATION  PROTECTION  IS  LOU  .  o> 

(EFFORT  REQUIRED  IS  HIGH  .  4) 

(SKILL  REQUIRED  IS  HIGH  .  e>> 

(THEN  (FUTURES  TRADING  .  )>>) 

(RULE  617 

(IF  (OBJECTIVE  OF  RETIREMENT  SECURITY  IS  SATISFIED  .  10) 
(FINANCIAL  RISK  IS  LOW  .  10) 

(LIQUIDITY  IS  LOU  .  6) 

(Tax  advantage  is  high  .  4> 

(INFLATION  PROTECTION  IS  MODERATE  .  4; 

(EFFORT  REQUIRED  IS  LOW  .  2) 

(SKILL  REQUIRED  IS  NOT  DEMANDING  .  2)V 

(THEN  (INDIVIDUAL  RETIREMENT  ACCOUNT  .  0  •  .' ) 

(RULE  618 

(IF  (OBJECTIVE  CF  GROWTH  IS  SATISFIED  .  15) 

(FINANCIAL  RISK  IS  HIGH  .  30) 

(LIQUIDITY  IS  LOW  .  6) 

(TAX  ADVANTAGE  IS  HIGH  .  4) 

(INFLATION  PROTECTION  IS  HIGH  .  3) 

(EFFORT  REQUIRED  IS  LOU  .  2) 

(SKILL  REQUIRED  IS  MODERATE  .  4>> 

(THEN  (TAX  'SHELTERS’  -  REAL  ESTATE,  BOCKS,  ART  ETC  .  0 ))) 
(RULE  419 

(IF  (OBJECTIVE  CF  GROWTH  IS  SATISFIED  .  13) 

(FINANCIAL  RISK  IS  MODERATE  .  20; 

(LIQUIDITY  IS  _GU  .  4; 

(TAX  ADVANTAGE  IS  HIGH  .  4) 

(INFLATION  PROTECTION  IS  HIGH  .  3' 

( EFFORT  REGUI RED  IS  MODERATE  .  4) 

(SKILL  REQUIRED  IS  MODERATE  . 

(THEN  (REAL  ESTATE  INVESTMENT  TRUST  .  0 '•  > 

(RULE  420 

(IF  (OBJECTIVE  OF  GROWTH  15  SATISFIED  .  1 3' 

(FINANCIAL  RISK  IS  MGOERA~E  .  20. 

(LIQUIDITY  IS  LOW  .  *i 
(TAX  ADVANTAGE  IS  u  1  GH  .  4) 

(INFLATION  PROTECTION  IS  HIGH  .  2) 

;EF=ORT  REQUIRED  IS  KiJ  .  4- 
■  SKILL  REQUIRED  13  MODESATg  . 

.  THEN  C  INCOME-PRODUCING  REAL  ES"h"  .  I-;.- 


( RULE  521 

(IF  ( OBJECTIVE  OF  SPECULATION  IS  SATISFIED  .  20) 
(FINANCIAL  RISK  IS  HIGH  .  30) 

{LIQUIDITY  IS  LOU  .  5) 

(TAX  ADVANTAGE  IS  HIGH  .  4) 

(INFLATION  PROTECTION  IS  HIGH  .  3) 

(EFFORT  REQUIRED  IS  LOW  .  2> 

(SKILL  REQUIRED  IS  MODERATE  .  4>> 

(THEN  (TAX  “SHELTERS*  -  OIL,  GAS,  ETC  .  0))) 

(RULE  522 

(IF  (OBJECTIVE  OF  SPECULATION  IS  SATISFIED  .  20) 
(FINANCIAL  RISK  IS  HIGH  .  30) 

(LIQUIDITY  IS  MODERATE  .  4) 

(TAX  ADVANTAGE  IS  MODERATE  .  3) 

(INFLATION  PROTECTION  IS  LOW  .  9) 

(EFFORT  REQUIRED  IS  LOW  .  2> 

(SKILL  REQUIRED  IS  NOT  DEMANDING  .  2>) 

(THEN  < PROFESS I ONALLY  MANAGED  OPTION  AND  COMMODITY  ACCOUN 

(RULE  533 

(IF  (OBJECTIVE  OF  RETIREMENT  SECURITY  IS  SATISFIED  .  10) 
(FINANCIAL  RISK  IS  LCU  .  10) 

(LIQUIDITY  IS  LOU  .  5) 

<tax  advantage  is  high  .  4> 

(INFLATION  PROTECTION  IS  LOU  .  9) 

(EFFORT  REQUIRED  IS  LOU  .  2) 

(SKILL  REQUIRED  IS  NOT  DEMANDING  .  2) > 

(THEN  (DEFERRED  ANNUITIES  OR  WHOLE  LIFE  INSURANCE  .  0>>> 
(RULE  534 

(IF  (OBJECTIVE  OF  INCOME  IS  SATISFIED  .  5) 

(FINANCIAL  RISK  IS  LOU  .  10) 

(LIQUIDITY  IS  MODERATE  .  4) 

(TAX  ADVANTAGE  IS  MODERATE  .  S) 

(INFLATION  PROTECTION  IS  LCU  .  9) 

(EFFORT  REQUIRED  IS  LOW  .  2) 

(SKILL  REQUIRED  IS  NOT  DEMANDING  .  2)) 

(THEN  (ANNUITIES  .  0)>> 

(RULE  533 

(IF  (OBJECTIVE  OF  GROWTH  IS  SATISFIED  .  13) 

(FINANCIAL  RISK  IS  LOW  .  10) 

(LIQUIDITY  IS  LOW  .  5) 

(TAX  ADVANTAGE  IS  HIGH  .  4) 

(INFLATION  PROTECTION  IS  LCU  .  9) 

(EFFORT  REQUIRED  IS  LOW  .  2) 

(SKILL  REQUIRED  IS  NOT  DEMANDING  .  2; ) 

(THEN  (DEFERRED  ANNUITIES  .  0>,)>)3> 


FILE!  I-PAR.L3P 


<  DEF  ' INV-PARAM 
' C  LAMBDA  ( ) 

[PROG  (DIVERS-EXCEPT  D IVERS-DEFAULT  OTHER-PARAM) 

<3ETQ  DIVERS-EXCEPT 

'((RULE  1  OF  (YOU  ARE  A  CONSERVATIVE  RISK-TAKER)) 

(THEN  (YOUR  PORTFOLIO  SHOULD  BE  CONSERVATIVE) ) ) 
(RULE  2  (IF  (YOU  ARE  A  MODERATE  RISK-TAKER)) 

(THEN  (YOUR  PORTFOLIO  SHOULD  BE  MODERATELY  RISKY) )) 
(RULE  3  (IF  (YOU  ARE  AN  AGGRESSIVE  RISK-TAKER) > 

(THEN  (YOUR  PORTFOLIO  SHOULD  BE  AGGRESSIVE))) 

(RULE  3  (IF  (YOUR  PORTFOLIO  SHOULD  BE  CONSERVATIVE) 

(DESIRE  TO  PARTICIPATE  IS  LOU) 

(AVAILABLE  CAPITAL  IS  *6000  OR  MORE)) 

(THEN  (DIVERSIFICATION  CAN  BE  LOU))) 

(RULE  9  (IF  (YOUR  PORTFOLIO  SHOULD  BE  MODERATELY  RISKY) 
(DESIRE  TO  PARTICIPATE  IS  LOU) 

(AVAILABLE  CAPITAL  IS  *6000  OR  MORE)) 

(THEN  (DIVERSIFICATION  CAN  BE  LOU) ) > 

(RULE  10  (IF  (YOUR  PORTFOLIO  SHOULD  BE  AGGRESSIVE) 

(DESIRE  TO  PARTICIPATE  IS  LOW) 

(AVAILABLE  CAPITAL  IS  *9000  OR  MORE)) 

(THEN  (DIVERSIFICATION  CAN  BE  MODERATE))) 

(RULE  11  (IF  (YOUR  PORTFOLIO  SHOULD  BE  CONSERVATIVE) 

(DESIRE  TO  PARTICIPATE  IS  MODERATE) 

(AVAILABLE  CAPITAL  IS  *6000  OR  MORE)) 

(THEN  (DIVERSIFICATION  CAN  BE  LOU>)> 

(RULE  12  (IF  (YOUR  PORTFOLIO  SHOULD  BE  MODERATELY  RISKY) 
(DESIRE  TO  PARTICIPATE  IS  MODEPATE) 

(AVAILABLE  CAPITAL  IS  *9000  OR  MORE)) 

(THEN  (DIVERSIFICATION  CAN  BE  MODERATE))) 

(RULE  13  <IF  (YOUR  PORTFOLIO  SHOULD  BE  AGGRESSIVE) 

(DESIRE  TO  PARTICIPATE  IS  MODERATE) 

(AVAILABLE  CAPITAL  IS  *12000  OR  MORE)) 

(THEN  (DIVERSIFICATION  CAN  BE  HIGH))) 

(RULE  14  (IF  (YOUR  PORTFOLIO  SHOULD  BE  CONSERVATIVE) 

(DESIRE  TO  PARTICIPATE  IS  HIGH) 

(AVAILABLE  CAPITAL  IS  *9000  OR  MORE)) 

(THEN  (DIVERSIFICATION  C*»J  BE  MODERATE))) 

< RULE  13  (IF  (YOUR  PORTFOLIO  SHOULD  BE  MODERATELY  RISKY) 
(DESIRE  TO  PARTICIPATE  IS  HIGH) 

(AVAILABLE  CAPITAL  IS  *12000  OR  MOPE)) 

(THEN  (DIVERSIFICATION  CAN  BE  HIGH))) 

(RULE  14  (IF  (YOUR  PORTFOLIO  SHOULD  BE  AGGRESSIVE) 

(DESIRE  TO  PARTICIPATE  IS  HIGH) 

< AVAILABLE  CAPITAL  IS  *12000  OR  MORE)) 

(THEN  (DIVERSIFICATION  CAN  BE  HIGH))))) 

SETS  DIVERS-DEFAULT 

'(‘RULE  1  (IF  (YOU  ARE  A  CONSERVATIVE  RISK-TAKER)) 

■•THEN  (YOUR  PORTFOLIO  SHOULD  BE  CONSERVATIVE))) 

< PULS  2  (IF  (YOU  ARE  A  MODERATE  RISK-TAKER)) 

(THEN  (YOUR  PORTFOLIO  SHOULD  BE  MODERATELY  RISKY)); 
(RULE  3  (IF  (YOU  ARE  PN  AGGRESSIVE  RISK-TAKER)) 

1  THEN  (YOUR  PORTFOLIO  SHOULD  BE  AGGRESSIVE))) 

( RULE  4  ( I-  (TRY  TO  INVEST  AT  LEAST  *3000  IN  EACH  CLASS) 
'AVAILABLE  CAPITAL  13  LESS  THAN  *<t000." 

•THEN  -DIVERSIFICATION  CAN  BE  MINIMUM))) 
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(RULE  3  (IF  (TRY  TO  INVEST  AT  LEAST  *3000  IN  EACH  CLASS) 

(AVAILABLE  CAPITAL  IS  BETUEEN  «e000  AND  *9000)) 

(THEN  (DIVERSIFICATION  CAN  BE  LOW) ) ) 

(RULE  6  (IF  (TRY  TO  INVEST  AT  LEAST  *3000  IN  EACH  CLASS) 

(AVAILABLE  CAPITAL  IS  BETUEEN  *9000  AND  *12000)) 

(THEN  (DIVERSIFICATION  CAN  BE  MODERATE) > ) 

(RULE  7  (IF  (TRY  TO  INVEST  AT  LEAST  *3000  IN  EACH  CLASS) 
(AVAILABLE  CAPITAL  IS  *12000  OR  MORE)) 

(THEN  (DIVERSIFICATION  CAN  BE  HIGH))))) 

(SETO  OTHER-PA RAM 

'((RULE  17  (IF  (DIVERSIFICATION  CfiN  BE  MINIMUM)) 

(THEN  (ONE  INVESTMENT  CLASS  IS  ENOUGH) > ) 

(RULE  18  (IF  (DIVERSIFICATION  CAN  BE  LOW)) 

(THEN  (TWO  INVESTMENT  CLASSES  ARE  ADEQUATE) ) > 

(RULE  19  (IF  (DIVERSIFICATION  CAN  BE  MODERATE)) 

(THEN  (THREE  INVESTMENT  CLASSES  ARE  ADEQUATE) > ) 

(RULE  20  (IF  (DIVERSIFICATION  0*1  BE  HIGH)) 

(THEN  (FOUR  INVESTMENT  CLASSES  ARE  ADEQUATE) > ) 

(RULE  21  (IF  (ONE  INVESTMENT  CLASS  IS  ENOUGH)) 

(THEN  (INVEST  ALL  OF  ORIGINAL  CAPITAL  IN  ONE  CLASS))) 

(RULE  22  (IF  (TWO  INVESTMENT  CLASSES  ARE  ADEQUATE)) 

(THEN  ( INVEST  ABOUT  SOX  OF  ORIGINAL  CAPITAL  IN  EACH  CLASS))) 
(RULE  23  (IF  (THREE  INVESTMENT  CLASSES  ARE  ADEQUATE) ) 

(THEN  < INVEST  ABOUT  33X  OF  ORIGINAL  CAPITAL  IN  EACH  CLASS))) 
(RULE  24  (IF  (FOUR  INVESTMENT  CLASSES  ARE  ADEQUATE)) 

(THEN  (INVEST  ABOUT  25X  OF  ORIGINAL  CAPITAL  IN  EACH  CLASS))))) 

(ADO  '(TRY  TO  INVEST  AT  LEAST  *3000  IN  EACH  CLASS)) 

(COND  ((LT  CAPITAL  6000) 

(ADD  '(AVAILABLE  CAPITAL  IS  LESS  THAN  *6000)))) 

(CONO  ((GE  CAPITAL  4000) 

(AOD  '(AVAILABLE  CAPITAL  IS  *6000  OR  MORE)))) 

( CCND  ((GE  CAPITAL  9000) 

(ADO  '(AVAILABLE  CAPITAL  IS  *9000  CR  MORE)))) 

(COND  ((GE  CAPITAL  12000) 

(AOD  '(AVAILABLE  CAPITAL  IS  *12000  CR  MORE)))) 

(COND  ((AND  (GE  CAPITAL  6000) (LT  CAPITAL  9000)) 

(ADD  '(AVAILABLE  CAPITAL  IS  BETUEEN  *6000  AND  *9000))); 

(COND  «RI0  (GE  CAPITAL  9000)  (LT  CAPITAL  12000)) 

(AOD  '(AVAILABLE  CAPITAL  IS  BETWEEN  *9000  AND  *12000),»>> 
(FORWARDCHAIN  DIVERS-EXCEPT) 

(SETQ  DIVERS-EXCEPT  NIL) 

(CONO 

((NOT  (FINO  '(DIVERSIFICATION  ♦>)) (FORWARDCHAIN  OIVEPS-OEFAULT) ) > 
(FORWARDCHAIN  OTHER-PARAM) 

(SETQ  DIVERS-DEFAULT  NIL) ( SETQ  OTHER-PARAM  NIL) 

(COND 

((RECALL  '(CNE  INVESTMENT  CLASS  IS  ENOUGH)) 

(SETQ  UNIT  CAPITAL) (SETQ  NO-INV  I>> 

((RECALL  ' <TJC  INVESTMENT  CLASSES  ARE  AOEQUATE) > 

(SETQ  UNIT  (FIX  (/  CAPITAL  2))>(SETQ  NO-INV  2') 

( < RECALL  '(THREE  INVESTMENT  CLASSES  ARE  AOEQUATE)) 

>SETQ  UNIT  (FIX  (/  CAPITAL  3>>>(SETQ  NO-INV  3)) 

((RECALL  '(FOUR  INVESTMENT  CLASSES  ARE  ADEQUATE) > 

(SETQ  UNIT  (FIX  </  CAPITAL  4)))  (SETQ  NO-INV  4>>> 

(SETQ  UNIT  <*  (/  UNIT  1000'  1000)) 

(SETQ  REMAIN  (X  CAPITAL  UNIT))  ID 
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FILE i  I -RULE . L3P 


<DEF  ' INS-RULELI ST 
' (LAMSOA  (> 

[PROG  ( INS-RULES) 

(ADO  '(YOU  WANT  TO  ESTIMATE  LIFE  INSURANCE  NEEDS)) 

(ADD  '(THIS  ESTIMATE  WAS  MADE  BY  BA 1 LARD,  BIEHL  It  KAISER  INC)) 

(ADO  '(THIS  AVERAGE  REFLECTS  BENEFITS  FOR  MINORS  (*JD  FUTURE  RETIREMENT)) 
(ADO  '(THIS  COST  IS  BASED  ON  AMERICAN  COUNCIL  ON  EDUCATIONS  ESTIMATE)) 

(AOO  ".ASSUME  A  4  YEAR  EDUCATION  FOR  EACH  CHILD)) 

(SETQ  INS-RULES 
'( 

(RULE  t 

(IF  (YOU  WANT  TO  ESTIMATE  LIFE  INSUIMNCE  NEEDS) ' 

(THEN  (YOU  MUST  ADD  IT  IN  ORDER  TO  ESTIMATE  TOTAL  MONETARY  NEEDS) 

(YOU  MUST  CONSIDER  TOTAL  MONETARY  NEEDS) 

(YOU  MUST  CONSIDER  IT  IN  ORDER  TO  ESTIMATE  TOTAL  MONETARY  NEEDS) 
(LIFE  INSURANCE  NEEDS  SHOULD  BE  ESTIMATED) 

(SUBTRACT  INVESTMENT  ASSETS  IN  HAND  FROM  TOTAL  MONETARY  NEEDS))) 

(RULE  2 

(IF  (YOU  MUST  ADD  IT  IN  ORDER  TO  ESTIMATE  TOTAL  MONETARY  MEEDS)) 

(THEN  (THIS  COST  SHOULD  BE  PROVIDED  FOR  AT  TIME  OF  DEATH) >> 

(RULE  3 

(IF  (THIS  COST  SHOULD  BE  PROVIDED  FOR  AT  TIME  OF  DEATH)) 

(THEN  (YOU  MUST  INCLUDE  FUNERAL  EXPENSES  IN  TOTAL  MONETARY  NEEDS) 

(YOU  MUST  INCLUOE  NON-MORTGAGE  DEBT  IN  TOTAL  MONETARY  NEEDS) 

(YOU  MUST  INCLUDE  EMERGENCY  FUND  REQUIREMENT  IN  TOTAL  MONETARY- 

NEEDS) 

(YOU  MUST  INCLUDE  COLLEGE  FUND  REQUIREMENT  IN  TOTAL  MONETARY  NE¬ 
EDS) 

(YOU  MUST  INCLUDE  TOTAL  LIVING  EXPENSES  IN  TOTAL  MONETARY  NEEDS- 

))) 

(RULE  4 

(IF  (THIS  COST  IS  BASED  ON  AMERICAN  COUNCIL  ON  EDUCATIONS  ESTIMATE) 
(YOU  HAVE  A  PRIVATE  COLLEGE  IN  MIND)) 

(THEN  (FIQURE  *9000  A  YEAR  PER  CHILD))) 

(RULE  3 

(IF  (THIS  COST  IS  BASED  CN  AMERICAN  COUNCIL  ON  EDUCATIONS  ESTIMATE) 
(YOU  HAVE  A  PUBLIC  C0LLE3E  IN  MINO) ) 

(THEN  (FIQURE  *3000  A  YEAR  PER  CHILD))) 

(RULE  6 

(IF  (YOU  DO  NOT  INTEND  OR  NEED  TO  PROVIDE  A  COLLEGE  FUND)) 

(THEN  (THERE  IS  NO  NEED  FOR  PROVIDING  A  COLLEGE  FUND))) 

(RULE  7 

(IF  (YOU  INTEND  TO  PROVIDE  A  COLLEGE  FUND) 

(FIQURE  *5000  A  YEAR  PER  CHILD) 

(ASSUME  A  4  YEAR  EDUCATION  FOR  EACH  CHILD) 

(YOU  MUST  INCLUDE  COLLEGE  FUND  REQUIREMENT  IN  TOTAL  MONETARY  NEED" 

S) ) 

(THEN  (THERE  IS  A  NEED  FOR  PROVIDING  A  COLLEGE  FUND))) 

(RULE  3 

(IF  (YOU  INTEND  TO  PROVIDE  A  COLLEGE  FUND) 

(FIQURE  *9000  A  YEAR  PER  CHILD) 

(ASSUME  A  4  YEAR  EDUCATION  FOR  EACH  CHILD) 

(YOU  MUST  INCLUDE  COLLEGE  FUND  REQUIREMENT  IN  TOTAL  MONETARY  NEED¬ 
S'  ) 

(THEN  (THERE  IS  A  NEED  FOR  PROVIDING  A  COLLEGE  FUND,)) 

(RULE  ° 

(IF  (YOU  MUST  INCLUDE  FUNERAL  EXPENSES  IN  TOTAL  MONETARY  NEEDS) 

(THIS  ESTIMATE  WAS  MAOE  BY  5AILAR0.  BIEHL  it  KAISER  INC) 

( YCUR  GROSS  ESTATE  13  UNDER  tSOO^O)) 


(THEN  (YOUR  FUNERAL  EXPENSES  ARE  ESTIMATES  TO  8E  *2200) )> 

(RULE  10 

(IF  (YOU  MUST  INCLUDE  FUNERAL  EXPENSES  IN  TOTAL  MONETARY  NEEDS) 

(THIS  ESTIMATE  WAS  MADE  BY  BAILARD.  BIEHL  *  KAISER  INC) 

(YOUR  GROSS  ESTATE  IS  BETWEEN  *20000  AND  *200000 >> 

(THEN  (YOUR  FUNERAL  EXPENSES  ARE  ESTIMATED  TO  BE  *S000)>) 

(RULE  11 

(IF  (YOU  MUST  INCLUDE  FUNERAL  EXPENSES  IN  TOTAL  MONETARY  NEEDS) 

(THIS  ESTIMATE  UAS  MADE  BY  BAILARD,  BIEHL  *  KAISER  INC) 

(YOUR  GROSS  ESTATE  IS  MORE  THAN  *200000)) 

(THEN  (YOUR  FUNERAL  EXPS4SES  ARE  ESTIMATED  TO  BE  *10000))) 

(RULE  12 

(IF  (YOU  MUST  INCLUDE  TOTAL  LIVING  EXPENSES  IN  TOTAL  MONETARY  NEEDS)) 
(THEN  (YOU  MUST  CONSIDER  IT  IN  ORDER  TO  ESTIMATE  TOTAL  LIVING  EXPENSE” 

S>>) 

(RULE  13 

(IF  (YOU  MUST  CONSIDER  IT  IN  ORDER  TO  ESTIMATE  TOTAL  LIVING  EXPENSES)) 
(THEN  (AVERAGE  AM4UAL  LIVING  EXPENSES  ARE  CONSIDERED) 

(SPOUSES  INCOME  IS  SUBTRACTED  FROM  AM4UAL  LIVING  EXPENSES) 
(SOCIAL  SECURITY  BENEFITS  ARE  SUBTRACTED  FROM  AKNUAL  LIVING  EXP¬ 
ENSES) 

(NET  ANNUAL  LIVING  EXPENSES  ARE  CONSIDERED))) 

(RULE  14 

(IF  (THIS  AVERAGE  REFLECTS  BENEFITS  FOR  MINORS  AND  FUTURE  RETIREMENT) 
(YOU  HAVE  TWO  OR  MORE  MINOR  CHILDREN) 

(THIS  ESTIMATE  WAS  MADE  BY  BAILARD,  BIEHL  Si  KAISER  INC) 

(SOCIAL  SECURITY  BENEFITS  ARE  SUBTRACTED  FROM  ANNUAL  LIVING  EXPEN¬ 
SES)) 

(THEN  (SOCIAL  SECURITY  BENEFITS  WILL  BE  *5000  PER  YEAR))) 

(RULE  141 

(IF  (THIS  AVERAGE  REFLECTS  BENEFITS  FOR  MINORS  AND  FUTURE  RETIREMENT) 
(YOU  HAVE  ONE  MINOR  CHILD) 

(THIS  ESTIMATE  WAS  MADE  BY  BAILARD,  BIEHL  3.  KAISER  INC) 

(SOCIAL  SECURITY  BENEFITS  ARE  SUBTRACTED  FROM  AWUAL  LIVING  EXPEN¬ 
SES)) 

(THEN  (SOCIAL  SECURITY  BENEFITS  WILL  BE  *4000  *ER  YEAR))) 

(RULE  142 

(IF  (THIS  AVERAGE  REFLECTS  BENEFITS  FOR  MINORS  AND  FUTURE  RETIREMENT) 
(YOU  HAVE  NO  MINOR  CHILDREN) 

(THIS  ESTIMATE  WAS  MAOE  BY  BAILARD,  BIEHL  U  KAISER  INC) 

(SOCIAL  SECURITY  BENEFITS  ARE  SUBTRACTED  FROM  ANNUAL  LIVING  EXPEN¬ 
SES)) 

(THEN  (SOCIAL  SECURITY  BENEFITS  WILL  BE  *3000  PER  YEAR))) 

(RULE  13 

(IF  (YOUR  SPOUSE  WILL  BE  90  IN  ABOUT  23  YEARS) 

( INSURANCE  PROCEEDS  WILL  BE  INVESTED  IN  A  CONSERVATIVE  PORTFOLIO)) 
(THEN  (INVESTMENT  RATE  FACTOR  IS  20))) 

(RULE  U 

(IF  (YOUR  SPOUSE  WILL  BE  90  IN  ABOUT  30  ’TEARS) 

(INSURANCE  PROCEEDS  WIL-  BE  INVESTED  IN  A  CONSERVATIVE  PORTFOLIO)) 
(THEN  (INVESTMENT  RATE  FACTOR  IS  22) ) > 

(RULE  17 

(IF  ( YCL'R  SPOUSE  WILL  BE  90  IN  ABOUT  35  (EARS) 

(INSURANCE  PROCEEDS  WILL  9E  INVESTED  IN  «  CONSERVATIVE  PORTFOLIO.') 
(THEN  (INVESTMENT  RATE  FACTOR  IS  23))) 

(RULE  13 

(IF  (YOUR  SPOUSE  WILL  BE  90  IN  ABOUT  40  YEARS) 

vINSUPANCE  PROCEEDS  WILu  BE  INVESTED  IN  CONSERVATIVE  rC RTF CL I 0>  > 
(THEN  (INVESTMENT  RATE  FACTOR  IS  27) ) ) 

(RULE  19 

(IF  (YOUR  SPOUSE  WIL-  BE  90  IN  ABOUT  43  (EARS) 

(INSURANCE  PROCEEDS  WILL  BE  INVESTED  IN  A  CONSERVATIVE  PC9~e,^\_;  o>  ) 
(THEN  (INVESTMENT  RATE  FACTOR  IS  30)') 


(RULE  20 

(IF  (YOUR  SPOUSE  WILL  BE  90  IN  ABOUT  SO  YEARS) 

( INSURANCE  PROCEEDS  UILL  BE  INVESTED  IN  A  CONSERVATIVE  PORTFOLIO)) 
(THEN  (INVESTMENT  l*TE  FACTOR  IS  31) > > 

(RULE  21 

(IF  (YOUR  SPOUSE  WILL  BE  90  IN  ABOUT  S3  YEARS) 

< INSURANCE  PROCEEDS  WILL  BE  INVESTED  IN  A  CONSERVATIVE  PORTFOLIO)) 
(THEN  (INVESTMENT  RATE  FACTOR  IS  33))) 

(RULE  22 

(IF  (YOUR  SPOUSE  UILL  BE  90  IN  ABOUT  60  YEARS  OR  MORE) 

(INSURANCE  PROCEEDS  MILL  BE  INVESTED  IN  A  CONSERVATIVE  PORTFOLIO)) 
(THEN  (INVESTMENT  RATE  FACTOR  IS  38) ) ) 

(RULE  23 

(IF  (YOUR  SPOUSE  UILL  BE  90  IN  ABOUT  28  YEARS) 

(INSURANCE  PROCEEDS  UILL  BE  INVESTED  IN  AN  AOORESSIVE  PORTFOLIO) > 
(THEN  (INVESTMENT  RATE  FACTOR  IS  U) > ) 

(RULE  24 

(IF  (YOUR  SPOUSE  UILL  BE  90  IN  A8QUT  30  YEARS) 

(INSURANCE  PROCEEDS  UILL  BE  INVESTED  IN  AN  AGGRESSIVE  PORTFOLIO)) 
(THEN  (INVESTMENT  RATE  FACTOR  IS  17))) 

(RULE  29 

(IF  (YOUR  SPOUSE  UILL  BE  90  IN  ABOUT  38  YEARS) 

(INSURANCE  PROCEEDS  UILL  BE  INVESTED  IN  AN  AGGRESSIVE  PORTFOLIO)) 
(THEN  (INVESTMENT  RATE  FACTOR  IS  19) >> 

(RULE  26 

(IF  (YOUR  SPOUSE  UILL  8E  90  IN  ABOUT  40  YEARS) 

(INSURANCE  PROCEEDS  UILL  BE  INVESTED  IN  fit*  AGGRESSIVE  PORTFOLIO)) 
(THEN  (INVESTMENT  RATE  FACTOR  IS  20) >> 

(RULE  27 

(IF  (YOUR  SPOUSE  UILL  BE  90  IN  ABOUT  48  YEARS) 

(INSURANCE  PROCEEDS  UILL  BE  INVESTED  IN  fit*  AGGRE3SIVE  PORTFOLIO) > 
(THEN  < INVESTMENT  RATE  FACTOR  IS  21))) 

(RULE  28 

(IF  (YOUR  SPOUSE  UILL  BE  90  IN  ABOUT  SO  YEARS) 

(INSURANCE  PROCEEDS  UILL  BE  INVESTED  IN  fit*  AGGRESSIVE  PORTFOLIO)) 
(THEN  ( INVESTMENT  RATE  FACTOR  IS  21))) 

(RULE  29 

(IF  (YOUR  SPOUSE  UILL  BE  90  IN  ABOUT  S3  YEARS) 

(INSURANCE  PROCEEDS  UILL  BE  INVESTED  IN  AN  AGGRESSIVE  PORTFOLIO)) 
(THEN  (INVESTMENT  RATE  FACTOR  IS  22) )> 

(RULE  30 

(IF  (YOUR  SPOUSE  WILL  BE  90  IN  ABOUT  60  YEARS  OR  MORE) 

(INSURANCE  PROCEEDS  UILL  BE  INVESTED  IN  AN  AGGRESSIVE  PORTFOLIO) 
(THEN  (INVESTMENT  RATE  FACTOR  IS  23))) >) 

( FORUARDCHAIN  INS-RULES) I ) ) 


FILE:  LOAD .LSP 


(OEF  'LOAD 

' t LAMBDA  (FILE) 

CPROO  (X  Y) 

(SETQ  X 

(INPUT  FILE)) 

LOOP 

(SETQ  Y  (READ  X) > 

(COMO 

KNOT  (EQUAL  Y  (EOF)))(EUAL  Y> 
(BO  LOOP)!)!!) 


FILE!  QUERY. LSP 


<  DEF  ' INV-INTERVIEW 
' [LAMBDA  O 

I  PROG  <> 

(UINCLR  Ul> 

(PRINTC  “In  order  to  offer  recommendat i on*  regarding  an  investment" 
por tfol  io*  UU 

(PRINTC  ’for  you,  please  answer  the  following  questions.*  Ul > 
(PRINTC  *  *  Ul) 

AGE 

(PR INTO  ‘What  is  your  age  (in  years)?*  Ul) 

(PRINTC  *  *  Ul) (PRINTC  *  *  Ul) 

(SET 0  X 

(REAO  Ul)> 

(CONO 

I (NOT  (NUM8ERP  X)) 

(BEEP) 

(GO  AGE)) 

KLT  X  33) 

(AM)  '(AGE  IS  LESS  THAN  33) >1 
KLT  X  30) 

(ADO  '(AGE  IS  BETWEEN  33  AND  30) >1 
C (LT  X  43) 

(AOO  '(AGE  IS  BETWEEN  30  AND  43) >1 
KLT  X  100) 

(AOO  '(AGE  IS  OVER  43) >1 
IT 

(BEEP) 

(GO  AGE))) 

(UINCLR  Ul) 

OBJ 

(PRINTC  *Seleet  what  you  thinK  is  the  most  appropriate  objective  f- 
or  you  at  this*  Ul ) 

(PRINTC  ‘time.*  Ul) 

CANS  '1  *  Retirement  Security!  You  want  completely  secure  Snvestm" 

ents*  Ul) 

(PRINTC  *  that  enable  you  to  set  aside  fund*  for  your  f 

uture  retirement.*  Ul) 

(AN8  '2  *  Income!  You  want  investments  that  provide  you  with  into* 

ming  *  Ul) 

(PRINTC  *  money  on  a  regular  basis  in  the  form  of  regul" 

ar  interest*  Ul) 

(PRINTC  *  payments  or  dividends.*  Ul ) 

(ANS  '3  *  3rowth«  You  want  investments  that  increase  your  current" 

wealth*  Wl) 

(PRINTC  *  to  help  your  standard  of  living  now  or  in  the" 

future.*  Ul) 

(ANS  ' 4  *  Speculation)  You  want  investments  that  offer  the  cnance" 

for  *  Ul) 

(PRINTC  *  above-average  or  great  profits  in  return  for" 

accepting  above-*  Ul) 

(PRINTC  *  average  or  great  risks.*  Ul) 

(PRINTC  *  *  Ul) (PRINTC  *  *  Ul) 

(SETQ  X  (REAO  Ul > ) 

(CONO 

KNOT  (NUMBERP  X)>  < SEEP) < 00  CBJ>) 

I (EQUAL  X  l) 

(ADD  '(YOU  INDICATED  -»N  OBJECTIVE  OF  RETIREMENT  SECURITY))) 


C (EQUAL  X  2) 

(ADO  '(YOU  INDICATED  AN  OBJECTIVE  OF  INCOME))) 

I ( EQUAL  X  3) 

(ADD  '(YOU  INDICATED  AN  OBJECTIVE  OF  3R0WTH) > 3 
I (EQUAL  X  4) 

(ADO  '(YOU  INDICATED  AN  OBJECTIVE  OF  SPECULATION) ) I 
IT  (BEEP) (00  OBJ) I) 

(WINCLR  Wl) 

EXP 

(PRINTC  ’What  is  /our  axparianca  in  trading  sacuritias?*  Wl) 
(ANS  '1  •  Nauar  tradad*  Wl) 

(AN8  '2  *  Loss  than  ona  yaar*  Wt) 

(ANS  '3  *  Mora  than  ona  yaar*  Ut) (PRINTC  *  *  Wl) (PRINTC  * 
(SETQ  X 

(READ  Wl)> 

(CONO 

KNOT  (NUMBERP  X>> 

(BEEP) 

(00  EXP) I 
t (EQUAL  XI) 

(ADD  '(EXPERIENCE  LBJEL  IS  MINIMAL))) 

C (EQUAL  X  2) 

(AOO  '(EXPERIENCE  LEVEL  IS  MODERATE) > 1 
I (EQUAL  X  3) 

(ADO  '(EXPERIENCE  LEVEL  IS  HIGH))) 

IT 

(BEEP) 

(00  EXP) 1 ) 

(WINCLR  Wl) 

WSJ 

(PRINTC 

’Do  you  subscriba  to  tha  Walt  Straat  Journat  or  othar  »inan~ 

eial*  Wl) 

(PRINTC  ’par iodi cals  or  sarvicas?*  Wl) 

(PRINTC  ’  *  Wl) (PRINTC  *  ’  Wl) 

(SETQ  X 

(READ  Wl)> 

(CONO 

KOR  (EQUAL  (CHRVAL  X)  99) ( EQUAL  (CHRVAL  X)  121)) 

(AOO  '(FINANCIAL  SERVICE  IS  CURRENTLY  USED))) 

KOR  (EQUAL  (CHRVAL  X)  78) (EQUAL  (CHRVAL  X)  110)) 

(AOO  '(FINANCIAL  SERVICE  IS  NOT  CURRENTLY  USED))) 

IT 

(BEEP) 

(00  USJ))> 

(WINCLR  Wl) 

AVAIL 

(PRINTC 

’What  is  tha  amount  of  liquid  assats  you  hawa  auailabta  for’ 
i nvastmant?*  Wl > 

(PRINTC  *  ’  Wl ) (PRINTC  *  S’  Wl > 

(SETQ  CAPITAL 
(READ  Wl)) 

(COND 

KNOT  (NUMBERP  CAPITAL)) 

(BEEP) 

<00  AVAIL) ) 

K3T  CAPtTAL  100000Q > < BEEP) 

(PRINTC  ’Go  Sira  an  accountant.*  W1MG0  AVAIL)] 

IT  (ADD  (LIST  'AVAILABLE  'CAPITAL  'IS  CAPITAL) ) 1 ) 

(WINCLR  Wl ) 

SECURITY 

(PRINTC 

*  How  aacura  is  /our  ineoma  ftow  on  'uhicn  you  daoano  fo- 


ing*  Wl) 
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(PRINTC  'expenses?*  Ut) 

(ANS  '1  *  Not  vfry  secure*  Wl > 

CANS  '2  ’  Moderately  secure’  141) 

(*4S  '3  ’  Very  secure’  W1XPRINTC  *  *  UtXPRINTC  ’  ’  Ut  > 

<SETQ  X 

(READ  Ui>) 

(CONO 

t(NOT  (NUMBER?  X) > 

(BEEP) 

(00  SECURE)] 

I (EQUAL  X  1) 

(ADD  '(INCOME  IS  NOT  VERY  SECURE))] 

C ( EQUAL  X  2) 

(ADD  '(INCOME  IS  MODERATELY  SECURE))] 
t (EQUAL  X  3) 

(ADO  '(INCOME  IS  VERY  SECURE))) 

IT 

(BEEP) 

(GO  SECURE)!) 

(WINCLR  Ut) 

EMERGENCY 

(PRINTC  ’What  level  is  your  emergency  reserve  ■fund?’  W1 ) 

(ANS  '1  *  Inadequate*  Ut) 

(ANS  '2  ’  Marginally  adequate*  UI ) 

(ANS  '3  *  Probaba!  1  y  adequate*  U1XPRINTC  •  •  W1XPRINTC  ’ 
(SETQ  X 

(READ  UD) 

(CONO 

KNOT  (NUMBERP  X)) 

(BEEP) 

(30  EMERGENCY ) ] 

[(EQUAL  X  1) 

(ADD  '(EMERGENCY  RESERVE3  ARE  INADEQUATE) > ] 

[(EQUAL  X  2) 

(ADD  '(EMERGENCY  RESERVES  ARE  MODERATELY  ADEQUATE) ) I 
[(EQUAL  X  3) 

(AOO  '(EMERGENCY  RESERVES  ARE  ADEQUATE) ) 1 
[T 

(BEEP) 

(GO  EMERGENCY)]) 

(WINCLR  Ut) 

TAXABLE 

(PRINTC 

’Your  estimated  taxable  income  for  this  year  prebaba!  ly  *»i  1  * 
.’  Ut) 

(f*4S  '1  *  Less  than  *23,000’  Ut) 

(ANS  '2  *  Between  *23,000  and  *43,003*  Ut > 

(M4S  '3  ’  More  than  *43,000’  WtXPRINTC  ’  •  UtXPRINTC  * 
(SETQ  X 

(REAO  Ul>) 

(CONO 

[(NOT  (NUMBERP  X)> 

(BEEP) 

(30  TAXABLE)] 

[(EQUAL  X  !> 

(ADD  '(TAXABLE  INCOME  IS  LESS  THAN  *23000))] 

[(EQUAL  X  2) 

(ADD  '(TAXABLE  INCOME  IS  BETWEEN  *23000  AND  *43000)) 


(( EQUAL  X  3) 

(ADD  '(TAXABLE  INCOME  13  MOPE  TL#4U  *45000): 
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CT 

(BEEP) 

(00  TAXABLE) 3 ) 

(U1NCLR  Wl) 

RISK 

(PRINTC 

"How  would  you  rat*  yourself  generally  a*  a  risk  taker?*  Ul> 

(ANS  '1  *  You  want  to  protect  your  mon*y  from  loss  abov*  all  other" 

Wl) 

(PRINTC  •  considerations.*  Wl) 

(ANS  '2  *  You  ar*  willing  to  tak*  son*  moderate  risks  to  increase"* 

your*  Ul) 

(PRINTC  *  investment  -funds  to  a  greater  degree.*  Wl) 

(ANS  *3  ■  You'll  accept  a  high  degree  of  risk  for  a  good  chance  at"* 

a  big*  Wl) 

(PRINTC  *  reward.*  U1XPRIN7C  *  *  WIXPRINTC  *  *  Wl) 

(SETQ  X 

(REAO  Wl>> 

(CONO 

((NOT  ( NUMBER P  X> ) 

(BEEP) 

(00  RISK)! 

((EQUAL  X  1) 

(A00  '(YOU  ARE  A  CONSERVATIVE  RISK-TAKER))) 

((EQUAL  X  2) 

(ADD  "(YOU  ARE  A  MODERATE  RISK-TAKER))] 

((EQUAL  X  3) 

(ADD  '(YOU  ARE  AGGRESSIVE  RISK -TAKER) ) 1 
IT 

(BEEP) 

(00  RISK)]) 

(WINCLR  Wl) 

EFFORT 

(PRINTC 

*To  what  degree  do  you  wish  to  actively  participate  in  the* 

Wl) 

(PRINTC  ‘management  of  your  investments?*  Wl) 

(ANS  '1  *  Minimum  participation*  Wl) 

(ANS  '2  *  Moderate  participation*  Wl ) 

(ANS  '3  *  High  degree  of  participation*  Wl) 

(PRINTC  *  •  Ul) (PRINTC  *  *  Ul > 

(SETQ  X 

(REAO  Wl)) 

(CONO 

((NOT  (NUMBERP  X>> 

(BEEP) 

(00  EFFORT)) 

((EQUAL  X  1) 

(ADO  '(DESIRE  TO  PARTICIPATE  IS  LOW) > I 
((EQUAL  X  2) 

(ADO  '(DESIRE  TO  PARTICIPATE  IS  MODERATE) M 
((EQUAL  X  3) 

(AOD  '(DESIRE  TO  PARTICIPATE  IS  HIGH))) 

CT 

(SEEP) 

(GO  EFFORT?)) 

(WINCLR  Wl) 

INFLATION 

(PPINTC 

•What  ar*  your  expectations  aoout  inflation  over  the  next  3" 


years'**  Wl) 


<ANS  '1  *  Anticipate  inflation  to  be  low*  Utt > 

<ANS  ' 2  *  Anticipate  inflation  to  be  moderate*  WO 

(ANS  '3  *  Anticipate  inflation  to  be  high*  WO 

(PRINTC  *  *  W1 > (PRINTC  *  *  Wl> 

<SETQ  X 

<REAO  WO) 

<CQNO 

t (NOT  (NUMBERP  X)> 

<8EEP> 

(GO  INFLATION)! 

I <  EQUAL  X  O 

(ADO  ' (ANTICIPATED  INFLATION  IS  LOU) > 1 
t( EQUAL  X  2) 

<AOO  ' <ANT1  Cl PaTED  INFLATION  IS  MODEfcOTE))! 
C< EQUAL  X  3) 

(ADD  ' (ANTICIPATED  INFLATION  IS  WISH) >3 
IT 

<9EEP) 

(60  INFLATION)!)!!) 


FILE*  RUN . LSP 


(.DEF  "RUN 

' 'LAMBDA  O 

[PROG  O 

(LCAO  ■BjINIT.LSP*) 

(INITIALIZE)  (DEF  'INITIALIZE  NIL) 
(LOAD  *8 t INTRO. LSP*) 

< INTRO) (OEF  'INTRO  NIL) 

(LOAD  * 8 1 CONTROL . LSP* ) 

(CONO  <  (EQUAL  MODE  '  IhW-MODE)  (00  IW>)> 
(LOAD  *BiDO-INS.LSP*) 

(DO- INSURANCE)  (DEF  'DO-INSURANCE  NIL) 

INV 

(LOAD  *8iD0-INU.LSP* > 

(DO- INVESTMENTS) (UINCLR) I I > 


'WAIT 

'  C LAMBDA  () 

(UINCLR  U2) 

(WINATTR  120  W2) 

(PRINC  *  PLEASE  WAIT 


*  U2) 1 > 


OEF  'STOP-WAIT 

'[LAMBDA  ()  (WINATTR  7  U2> 

(UINCLR  U2) I ) 

(DEF  'CHOICE 

' [LAMBDA  () 

IPROO  () 

AGAIN 

(SETQ  STATUS  'KEEP-QOINO) 

(UINCLR  U3) 

(WINATTR  120  U3) 

(PRINTC  *  SELECT i  (DInquir*  (C)Continu**  W3) 

(CLRBFI ) (SETQ  X  (TYI  U3>  > 

(WINATTR  7  W3> (UINCLR  USX SETQ  UIN  U<> 

(CONO 

I (OR  (EQUAL  X  *  I  * ) ( EQUAL  X  *i*)> 

(PROS  (NO-REA) 

ANOTHER 

(COND 

((EQUAL  MODE  ' INS-MODE) (WINATTR  120  Wl) (UINCLR  U1 ) 
(UINCLR  U4XSH0U-IN3  U4)  <,  INQUIRE-INS)  > 

((EQUAL  MODE  ' CONSTR-MODE) (WINATTR  120  Wl ) 

(UINCLR  Ul) (UINCLR  W4X SHOU-CONSTR) (INQUIRE-CONSTR) 
((EQUAL  MODE  ' I f*)-MCDE) (WINATTR  120  Wl  > 

(UINCLR  Ul)  (UINCLR  WAX  SHOU-IWX  INQUIPE-INV)  >  > 

(CONO 

((NOT  (EQUAL  STATUS  'EXIT) ) ( INQUIRE) > ) 

(CONO 

((EQUAL  STATUS  'LCR-OONE) (GO  ANOTHER) > 

((EQUAL  STATUS  '  EXITXWINATTR  7  Wl  )  f UINCLR  Ul  ) 

(SETQ  UIN  Ul) 

(COND  ((EQUAL  MODE  INS-MODEXSHOU-INS  Ul ) ) 

<< EQUAL  MODE  ' CONSTR-MODEX SHOU-CONSTR > > 

((EQUAL  MODE  '  IW-MODEXSHOU-II*))  >  > )  )  ) 


INS-MODEXSHOU-INS  Ul ) ) 

■  CONSTR-MODE) ( SHOU-CONSTR) > 
'  IW-MODE)  ( SHOU-II*))  > ) )  )  ) 


(GO  AGAIN)} 

[(OR  (EQUAL  X  *C* 
NIL] 

IT 

(BEEP) 

■00  AGAIN) 1)13? 


C* ) <  EQUAL  X  *c*)) 


FILE:  RANK . LSP 


<  DEF  'RANK-tNW 
- : LAMBDA  O 

t  PROG  ONUS  INUST-RULE  I  RANK) 

<SETQ  RANKED- 1  NWS  NIL)  <SETQ  IIWS  < INWESTMENT-RULELI ST) > 

(DEF  'INUESTMENT-RULELIST  NIL) 

LOOP 

(CONO 

C (NULL  INUS) (RETURN  NIL)] 

IT  (SETS  INUST-RULE  (CAR  INWS) ) 

(SETQ  I  (CADAR  ( CODDR  INUST-RULE) ) > 

(SETQ  RANK  (EUAL-INIU  INUST-RULE) ) 

( RPLACD  (LAST  I)  RANK) 1 ) 

(SETQ  INUS  (CDR  INWS) > 

(00  LOOP) 11) 

(DEF  'EWAL-INW 
'  CLAM8DA  (RULE) 

IPROQ  (IFS  UAL  CHAR  NO  RK> 

(SETQ  IFS  (CDR  (CADDR  RULE)))  (SETQ  NO  0) 

(SETQ  CHAR  (ARRAY  1  7)  >  (SETQ  RK  0) 

LOOP IF 
(COND 

t (EQUAL  NO  7) (RETURN  RK) 1 

IT  (STORE  (CHAR  NO)  (CDR  (LAST  (CAR  IFS)))) 

(SETQ  UAL  (-  (CHAR  NO)  (SOAL  NO))) 

(CONO 

((PLUSP  UAL) (SETQ  UAL  (*  UAL  5>>>> 

(SETQ  UAL  (ABS  UAL))  (SETQ  RK  (♦  RK  UAL) > 

(SETQ  NO  (AD01  NO) ) (SETQ  IFS  (CDR  IFS))(GO  LOOPIF)])]!) 

(DEF  'SORT 
' I LAMBDA  () 

IPROO  (MIN  PTR  INM-TT) 

(SETQ  MIN  300) 

(N»PC  'I LAMBDA  (X) 

(PROG  (I) 

(SETS  I  (CADAR  (CDOOR  X) ) ) 

(COND 

((LT  (CDR  (LAST  I)>  MIN) 

(SETQ  MIN  (CDR  (LAST  I))) 

(SETQ  PTR  X>)>>]  INUESTMENT-RULES) 

(SETQ  1NUMT  (CADAR  (CODDR  PTR))) 

••RPLACD  (LAST  INMIT)  300) 

(SETQ  RULES-USED  (CONS  PTR  RULES-USED)) 

(AOD  INMIT)  (RETURN  INUMT) 11) 

(DEF  ' SQRT-INUS 
' (LAMBDA  () 

(SETQ  FIRST  (SORT)HSETQ  SECOND  (SORT)) 

(SETQ  THIRO  (SORT)) (SETQ  FOURTH  (S0RT>)1> 
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